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ABSTRACT 



This thesis uses the Ada programming language in the design and development 
of an air-to-air missile flight simulation with object oriented techniques and sound 
software engineering principles. The simulation is designed to be more 
understandable, modifiable, efficient and reliable than earlier FORTRAN 
simulations. The principles of abstraction, information hiding, modularity, high 
cohesion and low coupling are used to achieve these goals. The resulting simulation 
is an accurate mapping of the problem space into software. The simulation is a three 
Degree-of-Freedom (3-DOF) model of RF /IR guided air-to-air missile. Two targets 
are also modeled. The simulation is primarily intended to study missile kinematics. 
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I. INTRODUCTION 



A. BACKGROUND 

The ever increasing cost and complexity of modern weapon systems forces new 
demands on the test and evaluation (T&E) process. More extensive testing is 
required with fewer resources. This thesis explores one aspect of the T&E process 
as it relates to air-to-air guided missiles. 

In the early days of missile T&E (circa late 1940s), missile performance capability 
was determined solely through flight test, that is, actual missile launches. The 
realization that all the T&E data requirements could not be met with a limited 
number of launches led to captive-carry flight test, laboratory testing, and simulation 
to complement the missile launches. Today's data requirements have grown in 
response to the increased missile sophistication and mission complexity. It is not 
unusual for a single flight test to cost more than a million dollars. Due to the 
increased data requirements and increased cost of flight test, missile flight simulation 
is receiving more and more attention. 

There are three levels of missile flight simulation in terms of cost and complexity. 
Real-time hardware-in-the-loop (HIL) simulation integrates actual missile hardware 
with special test and instrumentation equipment in a laboratory environment. The 
simulation software typically runs on a high-speed special purpose computer that 
drives the test equipment and missile hardware. The real-time HIL simulation 
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requires a major development effort of approximately thirty-five to forty man years 
and costs from five to ten million dollars [Ref. 1]. The second level of simulation is 
the all digital six-degree-of-freedom (6-DOF) missile flight simulation. Six-degree-of- 
freedom indicates that the simulation computes forces and moments for all three 
axes. The 6-DOF simulation incorporates sophisticated models for various missile 
subsystems and runs on a mainframe class computer. The 6-DOF runs many times 
slower than real-time. For example, an actual missile flight that might take thirty 
seconds to complete in real-time might take eighteen hours to run to completion 
using a 6-DOF simulation. The 6-DOF simulation requires a development effort of 
4-6 man years. 

This thesis will concentrate on the third level of simulation, the fast analytical 
simulation (FAS). Simulations of this class are a rapid and inexpensive tool allowing 
missile systems analysts to study overall missile response or capability expeditiously. 
The FAS is a three degree-of-freedom (3-DOF) simulation, usually the forces are 
computed for all three axes (the moments are ignored) and a three dimensional 
space is represented. Alternately, a 3-DOF might represent a planar two 
dimensional view where forces acting on two axes are computed while moments are 
computed about the remaining axis. The FAS is intended to be easily accessible via 
personal computers to provide results in a timely fashion. A user enters initial 
conditions and results are presented within a few minutes. 



2 



B. CURRENT PRACTICES: PROBLEMS AND LIMITATIONS 



The same problems are common to all three levels of missile flight simulation. 
The basic problems are that the simulations are extremely difficult to understand and 
to modify. The causes of these problems stem from the methods (or more accurately 
the lack of methods) and language used to implement the simulations. The difficulty 
in understanding and modifying the simulations introduces problems with efficiency 
and reliability. 

The simulations are usually developed by physicists or aerospace engineers using 
the FORTRAN programming language. Their main goal is "just to get something up 
and running". Typically these people have little or no training in modern software 
engineering principles. The resulting simulations are poorly structured and violate 
most commonly accepted programming principles. Typical characteristics of these 
simulations are: 

1. The simulations are monolithic pieces of code using many GOTO statements. 

2. Most variables are treated as global. 

3. Common data areas are used for communication between subroutines. 

4. Cryptic variable names are used (FORTRAN variable names are limited to sue 
characters). 

5. The simulations are limited to very simple data structures (multi-dimensional 
arrays are usually the most sophisticated data structures found). 

6. Programming through side is common. 

7. The simulations have little or no comments or formal documentation. 
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The new analyst will usually require at least six months to gain a basic 
understanding of how the simulation works, even if he or she has an excellent 
understanding of missile systems. An understanding of the simulation is critical if 
results are to be interpreted correctly. It is not uncommon for the original 
developers of a simulation to move on to other jobs, leaving the analysts responsible 
for maintaining and modifying the simulation. Changes in the production missile's 
software or hardware, regularly occurring events, must be accurately reflected in the 
simulation code. Changes or patches introduced to the simulation code invariably 
make the code more obscure and, more often than not, produce undesirable side 
affects or bugs. Debugging these types of problems is incredibly time consuming and 
difficult. 

After numerous patches have been applied the simulation software becomes 
unreliable and inefficient. Wildly different results are obtained for slightly different 
initial conditions. The real-time HIL simulations no longer run in real-time. The 
6-DOF simulations may take days to solve a problem and the 3-DOF FAS 
simulations take hours - what once required hours and minutes respectively. Disk 
and main-memory capacity become issues. What was once a tool enabling scientists 
and engineers to analyze complex systems has become an unwieldy demanding 
burden of questionable value. 
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C. MOTIVATION AND GOALS 



Current missile flight simulations are difficult to understand and modify, hence 
inevitably become inefficient and unreliable. What is needed is a method that more 
closely represents the problem space allowing simulations to be developed that are 
easy to understand and modify. This thesis will explore the use of object oriented 
techniques using the Ada programming language, in conjunction with contemporary 
software engineering principles, to implement a missile flight simulation. This 
simulation should be easily understood in a reasonable amount of time and readily 
accommodate change. Additional goals include producing code that is efficient and 
reliable. 

D. THESIS ORGANIZATION 

Chapter II presents a brief view of object oriented development philosophy and 
technique using Ada. Chapter III discusses the problem space, the flight simulation 
of an air-to-air guided missile. Chapter IV presents a user-level view of the 
simulation. Chapter V concentrates on the simulation control and support objects, 
while Chapter VI discusses the missile, launcher, and target objects. Thesis 
conclusions and recommendations are presented in Chapter VII. 
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II. OBJECT ORIENTED TECHNIQUES WITH ADA 



A. OBJECTIVES OF OBJECT ORIENTED TECHNIQUES 

The goal of object oriented techniques is to produce software that is 
understandable, easy to modify, efficient, reliable and reusability. Object oriented 
techniques build on sound software engineering principles to encapsulate data and 
procedures into objects. Object oriented techniques, which capture the real world 
problem space, map well into the Ada programming language. 

1. Understandability 

Understandability is critical to the management of complex software systems. 
It is, without a doubt, the most important factor of a simulation to an analyst or 
person responsible for maintaining the simulation. The software solution, that is the 
simulation, should be an accurate model of the real world problem. Software can 
be thought of as being understandable on both a micro and macro level. Code at the 
micro level should have a style that is very readable. At the macro level data 
structures and algorithms should be able to be identified as mapping from the real 
world problem space. Understandability also tends to be tied to the programming 
language used and its richness of expression. 

2. Modifiability 

Well designed software should readily permit change. Modification is usually 
required due to a change in requirements or to correct to an error. Changes in 
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missile simulation code are required to explore new concepts, or as a result of missile 
hardware or software upgrades. Many changes are not planned. Ideally changes 
should not alter the fundamental architecture of the software solution. 

3. Efficiency 

Efficiency is the optimal use of two fundamental computer resources - storage 
space and execution time. Both of these resources are dependent underlying 
hardware, yet both resources are equally dependent on the software. An efficient 
missile simulation should provide better user response and more functionality than 
an inefficient simulation. 

4. Reliability 

The goal of reliability is to prevent failure, and to some extent, recover from 
failure in a graceful manner. Failure in a missile simulation might be defined as 
anything from a program that crashes to a program that produces results that do not 
agree with flight test data or produces inconsistent results. A reliable missile 
simulation will provide results that are consistent with real world experiences and 
give meaningful indications when potential problems might arise (e.g., limits 
exceeded or incorrect user input). 

5. Reusability 

The goal of reusability is to provide software components to build software 
much the same way hardware engineers build circuits from standard off-the-shelf 
components. The development of software systems can be dramatically reduced by 
using software components that have already been debugged and tested. These 
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components can form libraries of commonly used objects. Systems may be 
constructed from these libraries. These systems then may be added to the library. 

B. OBJECT ORIENTED PRINCIPLES 

Through abstraction, information hiding and modularity, object oriented 
techniques encapsulates data and procedural abstractions to form objects. Objects 
modularize both information and processing, rather than processing alone. Object 
oriented techniques establish a mechanism for (1) a representation of data structures, 
(2) the specification of process and (3) the invocation procedure. An object is an 
element of the real world mapped into the software domain. The object consists of 
operations which act on data structures in response to messages sent to that object 
from other objects. The operations and data structures are hidden, that is the 
implementation details are unknown to the user of the object. The interface to the 
object is the only portion visible to the user. The interface is a set of well defined 
messages that specify what operation on the object is desired. Object oriented 
techniques can aid sound software engineering principles. These principles include 
abstraction, information hiding, modularity, loose coupling, and strong cohesion [Ref. 
2 ]. 

1. Abstraction 

Many of the problems found with the missile flight simulations are due to their 
complexity. Abstraction is a powerful concept that helps one deal with complexity. 
Abstraction concentrates on the essential aspects of a problem, while omitting the 



8 



details. There may be many levels of abstraction constructed when solving a 
problem. At the top level of a missile simulation, abstraction would reveal the 
essential entities - the missile, target, and environment. Moving to the next lower 
level of abstraction within the missile, this level might be thought of as being 
composed of various subsystems, such as the seeker, the guidance section, the 
autopilot, and the airframe. Moving to the next lower level of abstraction, arbitrarily 
choosing the missile seeker for example, would reveal the data structures and 
procedures used to model the seeker. Only the lower levels of abstraction expose 
the specific details of a solution. 

2 , Information Hiding 

Information hiding conceals the implementation details of a solution that 
should not affect other parts of a system. Through information hiding only the 
essential aspects of a solution are visible, while the implementation details or "how" 
of a solution are hidden. Hiding low level design decisions prevents the higher levels 
of abstraction from being dependent on implementation details. This approach aids 
abstraction and increase the modifiability of the solution. 

3. Modularity 

The importance of modularity in software design has been recognized for some 
time. According to Myers [Ref. 3], "Modularity is the single attribute of software that 
allows a program to be intellectually manageable." In monolithic software, such as 
the missile simulations, the number of control paths, number of variables and the 
overall complexity make understanding difficult. Ideally, software is decomposed into 
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modules along logically and functionally independent lines. Modularity supports our 
notion of abstraction. High-level modules specify "what” is to be done. Low-level 
modules specify "how" that action is to take place. 

3. Cohesion and Coupling 

Modules in software systems can be thought of as having two important 
characteristics, cohesion and coupling. Cohesion attempts to characterize to what 
degree a module performs a single function or serves a single purpose. A highly 
cohesive module would be one in which the module performs a single task that 
requires little or no interaction with other modules in a program. A module 
exhibiting low cohesion would perform many different functions and interact with a 
large number of other modules. Modules that are highly cohesive are easier to 
understand and are more amenable to change than modules exhibiting low cohesion. 

Coupling is measure of interconnection among modules in a program. Modules 
with high coupling have a complex interfaces and make use of data or control 
information found in other modules. Modules with low coupling have relatively 
simple interfaces and make use of only the data or control information presented by 
the interfaces of other modules. Changes made to modules with low coupling are 
less likely to cause unwanted effects in other modules, that is the ripple effect is 
minimized. Like modules that are highly cohesive, modules with low coupling are 
easier to understand and modify. 
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4. Inheritance 



Inheritance is an object oriented concept that permits the organization, 
building and reuse of software [Ref. 4]. In a limited view of this concept, new objects 
may be defined to inherit the capability and functionality of other previously defined 
objects. The new objects may extend the capability and functionality of the original 
object by adding new capabilities and functionalities. Conversely the new object may 
be defined to eliminate or limit certain capabilities of the original object. Once an 
object has been developed, it may be reused with minimal effort through inheritance, 
reducing development time. 

C. OBJECT ORIENTED METHODOLOGY WITH ADA 
1. Ada Packages 

The object oriented philosophy maps well into the Ada programming language. 
Ada has a wide set of constructs for providing primitive objects and operations. 
These constructs serve to build the implementation level of the objects. Ada's 
packaging concept is conceptually similar to objects and provides the means to 
encapsulate objects. According to Booch [Ref. 5], "A package is a collection of 
computational resources, which may encapsulate data types, data objects, 
subprograms, tasks or even other packages." An Ada package consists of a 
specification and a body [Ref. 6]. The specification identifies the information that 
is visible to the user of that package. The package body contains the implementation 
details of the package which should (and can) remain physically and logically hidden 
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from the user. The specification and body may be compiled separately to enforce 
the separation of the specification or interface from the body with its implementation 
details. The specification can serve to define the messages associated with an object. 
The object responds in the appropriate manner to these messages. These messages 
might map to function or procedure calls and their input or output variables. 

Ada packages can be used to provide reusable software components. Packages 
of commonly required objects can form libraries where they may be withdrawn and 
reused. Ada's generic unit feature supports, in a limited way, the object oriented 
principle of inheritance. A generic package serves as a template for an object [Ref. 
7]. The generic object can then be instantiated with all the features of the generic 
object, along with any additional features required of that particular instantiation. 
For example, a generic stack or list object might be instantiated for each occurrence 
of a different data type, along with the additional capabilities that make sense for 
that particular data type. 

2. Methodology 

This thesis uses an object-oriented development technique similar to that 
advocated by Booch [Ref. 5] and first proposed by Abbott [Ref. 8]. The development 
process involves five steps. First, identify the objects and their characteristics or 
attributes as they exist in the problem space. Often a concise problem statement is 
useful in identifying objects. The nouns of the problem statement serve to identify 
potential objects. The second step is to identify the operations that characterize the 
behavior of the objects identified in the first step. These should be meaningful 
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operations that can be performed on the object. Verbs associated with an object 
noun in the problem statement can aid in the identification of meaningful operations. 
During this step time and space constraints are formed to define the dynamic 
behavior of the objects. The scope and ordering of operations might be defined for 
example. The third step is to establish the visibility of the objects with relation to 
one another. This step attempts to specify what objects "see", and what are "seen" 
by a given object. This serves to map the problem space into the objects. The fourth 
step is to define the interfaces to the objects. To do this an object specification is 
produced which "forms the boundary between the outside view and the inside view 
of an object." This maps directly into the Ada package specification construct. The 
final step is to implement each object by designing suitable data structures and 
algorithms and to implement the corresponding interface from the fourth step. Also 
at this step it is important to remain aware of the software engineering principles of 
modularity, high cohesion and low coupling. Note that this whole process can be 
recursive, that is, an object might further be decomposed into subordinate objects. 

The key point of this method is the accurate mapping of the problem space into 
software. This mapping preserves the real world view of the problem, and if done 
properly, tends to produce code that is easily understood. Object oriented techniques 
also lend themselves well to the software engineering principles discussed earlier. 
Through object oriented techniques and sound software engineering principles, our 
goals of producing a missile flight simulation that is easy to understand, easy to 
modify, efficient and reliable can be realized. 
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III. THE PROBLEM SPACE 



A. INTRODUCTION 

An air-to-air guided missile is designed to be carried on an aircraft and launched 
at an airborne target. After launch the missile guides, using its sensors, on the target 
to intercept. Air-to-air missile sensors may be radar, infrared or a combination of 
both types. Once the missile detects the target, it tracks and guides on the target by 
generating steering commands that will set a course to intercept the target. The 
missile flight simulation attempts to represent or model the missile and its 
environment. 

The missile flight simulation models a subset of the missile systems, the kinematics 
- consisting of the missile dynamics and the missile-target geometry, and the target. 
At the top level view, the simulation computes the forces acting on the missile (e.g., 
thrust, drag, and gravity) and from these forces derives accelerations to compute the 
missile's spatial trajectory from launch to target intercept. Figure 3.1 is a top-level 
block diagram of a missile flight simulation indicating the relationships of the various 
models. The missile subsystems are represented by the Autopilot, Airframe, and 
Guidance blocks. The blocks labeled Missile Dynamics and Missile-Target Geometry 
compute the kinematics. The Target block here represents a single target, but in 
most simulations more than one target is modeled. The missile airframe model, 
given its achieved accelerations, computes the forces acting on it for use in the 
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Figure 3.1 Missile Flight Simulation 
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target geometry, which is passed to the guidance model. Acceleration commands, 
which will enable the missile to intercept the target, are computed by the guidance 
model and provided to the autopilot. The autopilot responds with the achieved 
accelerations, which are passed to the airframe model. 

B. THE AIR-TO-AIR GUIDED MISSILE 

The missile consists of a number of subsystems. These typically are the airframe, 
flight control, guidance, warhead, propulsion, data link and telemetry. The 
subsystems modeled in a simulation are the airframe, autopilot, guidance, and 
propulsion [Ref. 1]. In addition, the atmosphere and kinematics are modeled. 

1. The Airframe 

The missile airframe actuates or deflects the control surfaces which steer the 
missile. The missile is modeled as a rigid body and, as such, body and control 
surface bendings are not represented. The airframe is represented in terms of a 
reference axes system. Figure 3.2 illustrates the missile reference axes systems where 
X, y, and z are the primary missile reference or body axis system and the axes with 
the a subscript represent the missile autopilot or inertial axis system. 

Roll (<i>) is angular motion about the x-axis, pitch (d) is angular motion about 
the y-axis, and yaw (V») is angular motion about the z-axis. The missile's angle of 
attack, alpha (a), is the angle between the missile's velocity vector (V) and its x-axis. 
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Rear View of Missile 
X axis Is out of th« pag« 




Figure 32 Missile Reference Axes 

Three force equations describe the forces experienced by the missile along 
each axis. There is one force equation for each axis as follows: 

E F, = m * a, 

E Fy = m * ay 
E F, = m * a^ 

These represent Newton's classic relation that force is the product of mass and 
acceleration. Here we resolve the forces into components along each missile axis. 

These force equations describe the dynamics of the airframe. Aerodynamics 
is the science applied to predicting these forces. These forces are expanded in terms 
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of aerodynamic parameters and coefficients [Ref. 9]. For example, the x-axis 
equation becomes: 

sF,j = m*a^ = Fp + (Cd„ * aq * S) + (Cd^ * 5 * q * S) 

The first term in the above equation is the propulsion force. The second term 
is the product of the drag coefficient for a given angle of attack (Cd„), the angle of 
attack (q), and the missile reference area (S). The third term is the product of the 
drag coefficient for a given control surface deflection (Cd^), the control surface 
deflection (s), the aerodynamic pressure (q), and the missile reference area (S). The 
aerodynamic coefficients are a function of angle of attack, control surface deflection, 
roll angle and mach number. The aerodynamic parameters and forces are provided 
to the airframe model by the missile dynamics model, and the autopilot model 
provides the commanded accelerations as input. The airframe model computes the 
forces it is "experiencing” and sends these values to the kinematics model (see Figure 
3.3). 

2. Kinematics: Missile Dynamics 

The kinematics model serves two functions: to compute missile dynamics and 
to compute the missile-target geometry (see Figures 3.4 and 3.5). Inputs to the 
missile dynamics function are the airframe forces computed in the airframe model. 
From these values, and from initial conditions, the dynamics model derives 
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Figure 3.3 Airframe Model 

acceleration, velocity, position data, and flight-path variables. Angles, angular rates, 
and accelerations represent the inertial quantities. These inertial quantities simulate 
the inertial sensor measurements the missile would experience. 

Aerodynamic parameters, such as mach and velocity, are fed back to the 
airframe model. The derived acceleration, velocity, and position variables are sent 
to the missile-target geometry model. The kinematics model also transforms data 
between the two reference coordinate systems, that is, between the airframe 
reference system known as the body coordinate system (x,y,z) and the autopilot 
reference system known as the inertial coordinate system (Xa,Ya,Za). 
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Figure 3.5 Kinematics: Missile-Target Geometry 
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3. Kinematics: Missile-Target Geometry 

The primary purpose of the missile-target geometry portion of the kinematics 
model is to compute the missile-target engagement geometry parameters. These 
values are sent to the missile guidance model to steer the missile to the target. 
Inputs to the missile-target geometry model are missile acceleration, velocity, and 
position data from the missile dynamics model, and target acceleration, velocity, and 
position from the target model. These inputs are used to compute range rate 
(closing velocity), missile to target range, line-of-sight (LOS) rate, LOS, and time of 
flight. The simulation is terminated on range or time constraints determined by this 
model. The computed information is sent to the missile guidance model. 

4. Missile Guidance 

The guidance model represents the missile guidance law (see Figure 3.6). The 
guidance law determines what trajectory will cause the missile to intercept the target. 
Missile guidance can be classified by the type of sensor is used to provide target 
information. Common sensors are RF (radar), or infrared (IR). A missile may use 
a combination of RF and IR seekers. The actual missile guidance section is very 
complex and sophisticated, hence, extremely difficult to model. Most simple 
simulations assume a perfect guidance section that uses a modified proportional 
guidance law. 

An important parameter in guidance is the line-of-sight (LOS). The line-of- 
sight is the direction the missile "looks" in order to "see" the target. This is an 
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Figure 3.6 Guidance Model 

imaginary line from the missile's seeker to the centroid of the target. It has been 
proven that, given constant target and missile velocities, if the LOS angle between 
the target and the missile remains constant an optimum trajectory will be achieved, 
resulting in a minimum miss distance [Ref 1]. If the LOS angle is to remain constant 
then the LOS rate must be zero. The LOS rate is computed in the guidance section 
and multiplied by the navigation ratio N and sent to the autopilot as commanded 
accelerations proportional to the LOS rate; hence, the term proportional guidance. 

The commanded accelerations will change the missile velocity relative to the 
target velocity, driving the LOS rate to zero. The response of the guidance system 
is determined by the value chosen for the navigation ratio N. Most modem missiles 
improve upon the pure proportional guidance law by using the target related 
information available through improved sensors and increased on board computing 
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power. Target related parameters used in addition to LOS include target range, 
velocity, acceleration and time to intercept. Given guidance data, the guidance 
model computes the commanded accelerations required to intercept the target. 

5. The Autopilot 

The autopilot functions to give the missile stable and controlled flight. The 
autopilot has its own axes reference system (Xa, Ya, Za). The airframe motions 
about the autopilot axes are controlled by the autopilot. Motions about the Ya and 
Xa axes determine missile direction. The autopilots for these axes are termed the 
pitch and yaw autopilots, respectively. 

The autopilot receives commanded accelerations as input and responds with 
achieved accelerations as output (see Figure 3.7). The achieved accelerations are 
based on the characteristics of the autopilot and other missile subsystems. 

6. Target 

The target model represents a simple maneuvering target. Inputs are 
positional, heading, velocity, and type of maneuver initial conditions. Inertial data 
are derived from this data and output to the missile-target geometry model. More 
sophisticated target models might include multiple targets and targets capable of 
complex maneuvers. 
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Figure 3.7 Autopilot Model 
7. The Atmosphere 

The Earth's atmosphere is a dynamically changing system, within which the 
missile must operate. The pressure, density and temperature of the atmosphere 
depend on altitude, location on the globe, the time of day and the season. In order 
to have a common reference atmosphere, a standard atmosphere has been defined 
by the U.S. Air Force [Ref. 9]. The standard atmosphere gives mean values of 
pressure, density, and temperature as a function of altitude. Most missile flight 
simulations model the standard atmosphere. 

C. SUMMARY 

The models described above become the Ada objects in the object oriented 
approach. The relations between the models are represented by messages between 
the objects. These messages can request actions of objects or be in response to 
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message requests for action. Objects may be constructed from other objects. A 
missile composed of objects that represent subsystems for example. This approach 
results in a simulation that accurately maps the problem space to software, as the 
next chapter illustrates. 
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CHAPTER IV. THE USER'S VIEW OF THE SIMULATION 



A INTRODUCTION 

This chapter briefly discusses general simulation principles, and contains a basic 
user-level overview of the simulation. The brief discussion of simulation principles 
is intended to provide a rudimentary understanding and insight into some aspects of 
the simulation's implementation and operation. The user-level overview of the 
missile flight simulation operation provides basic concepts that will aid in 
understanding the missile, launcher, and targets objects presented in Chapter VI. 

This missile flight simulation falls under the category of nonlinear continuous 
dynamic systems [Ref. 10]. Other simulations or applications in this category include 
simulations of spring-damper systems, automotive drive trains, power plants, and 
chemical processing plants. In keeping with the principle of abstraction, the top-level 
of the simulation is generic in the sense that it is not designed for a specific 
simulation, it is application independent. The application could be any of the 
previously mentioned simulations. The principle common to all these simulations is 
that the application specific models (e.g., a power plant or a missile) produce a set 
variables that represent the "state" of the model. Typically the state variables are 
time-dependent variables that represent rates, such as flow rates in a power plant or 
accelerations in a missile. The specific application models the system of interest over 
a period of time. This might be hours or days for a power plant, or seconds or 
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minutes for a missile. The time periods are divided into discrete units of time called 
time steps. A time step for a power plant might be an hour, while a missile's time 
step might be a tenth of a second. The state variables are computed once each time 
step by the models. These state variables are then mathematically integrated each 
time step using numerical integration methods [Ref. 11]. The integrated variables 
are then fed-back to the models where they are used, along with other equations 
representing characteristics of the model, to compute the state variables for the next 
time step [Ref. 12]. 

B. SIMULATION OPERATION 

The simulation is a 3 Degree-of-Freedom (3-DOF) simulation representing 
translational motion in three dimensional space. The missile is a dual mode, guided 
air-to-air missile. Dual mode indicates that the missile utilizes both radar and 
infrared sensors (also known as seekers) to guide to or track the target. The missile 
is carried on a launch aircraft and is launched at the target. The function of the 
missile is to guide to and intercept one of the two targets. The targets may fly a 
constant nonmaneuvering flight path or the user may enable target maneuvering. 
The targets are capable of both turn and weave maneuvers. In addition to the two 
targets, it is possible to have two other targets active which act as stand off jammers 
(SOJs). The role of the SOJs is to use electronic counter measures (ECM) to 
degrade or confuse the missile's radar to prevent the missile from guiding on the 
target. 
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An inertial coordinate system is used to describe the launch aircraft, missile, 
target and SOJ positions in three dimensional space. This is a north, east, down 
coordinate system (north, east, down) that is referenced to the missile's position at 
launch (i.e., ( 0, 0, -launch aircraft altitude)). An object's position and velocity in 
inertial space are described by its state vector. In addition to the inertial coordinate 
system, the missile uses the missile body coordinate system and the seeker coordinate 
system. The missile body coordinate system is referenced to the airframe or body 
of the missile and is used to compute forces acting on the missile. The seeker 
coordinate system is referenced to the missile's seeker and is used to describe where 
the seeker is pointing with respect to the missile body and the other objects in 
inertial space. 

Sample planar views of a typical launch profile are provided in Figure 4.1, a top 
view, and Figure 4.2, a side view. All the parameters required to establish a default 
launch profile are read from a data file when the simulation is first brought up. The 
user enters SIM at the DOS prompt to bring up the simulation. An introduction 
screen is displayed, and any key stroke will then display the Simulation Main Menu 
(see Figure 4.3). 

This menu's choices are: File Operations Menu, Launch Aircraft Parameter Menu, 
Target Parameter Menu, Start Simulation or Quit Program. The File Operations 
Menu, shown in Figure 4.4, permits the loading and saving of data files that establish 
the simulation's initial conditions. This menu also has a selection that allows the 
data generated by the simulation to be logged to a file and the selection of the log 
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Figure 4.1 North-East Planar View 
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Figure 4.2 North-Down Planar View 
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Figure 4.3 Simulation Main Menu 
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Figure 4.4 File Operations Menu 



interval. The user may then modify the launch profile by interactively changing the 
launch aircraft, missile, target, or SOJ parameters. The user does this from their 
individual menus. 

1. Launch Aircraft and Missile Parameters 

Launch aircraft parameters that may be modified interactively from the Launch 
Aircraft Parameter Menu (Figure 4.5) are aircraft type, launcher type, altitude, 
velocity, heading angle and guidance mode. The launch aircraft's altitude, velocity 
and heading angle become initial conditions for the missile. The aircraft type, which 
can be F-14, F-15, or F-18, establishes radar characteristics that will determine when 
the missile's radar acquires the target. Launcher type specifies whether the missile 
is launched off a rail station of the launch aircraft or whether the missile is ejected 
off an ordnance station of the launch aircraft. The guidance modes available to the 
launch aircraft are the pursuit mode, in which case the launch aircraft maneuvers 
towards the target after launch or the nonmaneuvering mode, in which case the 
launch aircraft continues on its original flight path after missile launch. 

2. Target Parameters 

It is assumed that there is always at least one target. The user must enable the 
second target to simulate a two target formation. The target parameters that may 
be modified from the Target Parameter Menu (Figure 4.6) can be divided into three 
categories: general, maneuver, and ECM. The general parameters are altitude, 
velocity, aspect angle, slant range, radar cross section (RCS), and infrared (IR) 
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Launch Aircraft Parameter Menu 
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Figure 4.5 Launch Aircraft Parameter Menu 




34 



Figure 4.6 Target Parameter Menu 



radiance. Aspect angle is the angle defined counter-clockwise from the target's tail 
to the missile's line-of-sight (LOS). Hence, an aspect angle of zero degrees is a tail 
shot (i.e., the target and launch aircraft have the same heading, with the launch 
aircraft following the target), and an aspect angle of 180 degrees is a head shot (i.e., 
the target and missile flying directly at one another). The LOS vector is the vector 
from the missile's seeker to the target. The slant range is the three dimensional 
range from the target to the missile. The missile may use its own radar or infrared 
sensors to provide target information. RCS is a parameter that indicates the targets 
size in terms of how much radar energy is reflected off the target. A target with a 
large RCS will be acquired by the missile's radar in a shorter period of time (or 
similarly acquired at a longer range) than a target with a small RCS. IR radiance 
is the infrared spectrum's counterpart to RCS, except the IR energy is emitted from 
the target's engine exhaust (and other IR "hot" spots), rather than being energy 
reflected off it. The target maneuver parameters control the target's flight path. 

The target can be either a nonmaneuvering target, a turning target, or a weaving 
target depending on the parameter maneuver type. Parameters associated with both 
the turning target and weaving target are maneuver g's, buildup time, and the 
maneuver start parameter. Target g's are the number of g's the target is going to 
achieve executing the maneuver, and build up time is the time it takes to achieve the 
commanded g's. The maneuver start parameter selects what condition initiates the 
maneuver. The user can select whether the maneuver starts on flight time (time 
since the start of the simulation), time remaining (estimated time to intercept), or 
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range-to-go (missile-to-target range). Specific to turn maneuver is the parameter 
angle to turn through, which is simply how many degrees the target is to turn through 
before the turn is terminated and the target resumes straight and level flight. A 
weaving targets flight path resembles a sinusoidal wave form in the north-east plane. 
That is, looking down on the target, its flight path would resemble a sine wave. The 
weave specific parameter weave period determines the time (in seconds) it takes the 
target to complete one cycle or period of the weave. If target two is enabled, the 
user may define the second targets altitude, the second target's range to target one 
and the second target's echelon angle (see Figure 4.7). 

3. SOJ and Target ECM Parameters 

The user also has the option to enable the SOJs and set their range from the 
launch aircraft, look angle to the target (the angle between the launch aircraft's LOS 
to the target and the LOS to the SOJ, see Figure 4.8), and modify their ECM 
parameters (see Figure 4.9). The ECM parameter associated with both targets is 
ECM technique. The ECM techniques available are none, repeater, and barrage 
noise. Associated with the repeater ECM technique is the parameter loop gain and 
associated with the barrage noise ECM technique is the parameter effective radiated 
power density (ERPD). The repeater technique is intended to deceive the missile 
by receiving the missile's radar signal, altering it, and retransmitting it back to the 
missile. The intent is to make the missile "see" the target at a different range or 
velocity than the target's actual range or velocity. The user may modify the loop 
gain, effectively controlling the power of the repeater. The barrage noise technique 
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Figure 4.7 Multiple Targets 




Figure 4.8 SOJ Look Angle 
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Figure 4.9 SOJ Parameter Menu 



is a cruder technique in which the target transmits broad band noise in an attempt 
to over-power the missile's radar receiver and deny it any target information. The 
user may modify the ERPD of the barrage noise. Similar ECM options are available 
for the SOJs if they are enabled. Basically the ECM is a function of the technique 
used and the geometry in which the ECM platform (i.e., either target or SOJ) 
encounters the missile. In all cases just minimal or skeleton code is implemented for 
ECM due to security classification issues and developmental time constraints. The 
ECM area falls under the future work category discussed in the last chapter. 

To start the simulation, the user selects Start Simulation Run from the main 
menu. The run-time display is then shown indicating key geometric and kinematic 
parameters (see Figure 4.10). The user may halt or abort the simulation while it is 
running. Halting the simulation permits careful examination of parameters during 
a run, while terminating the simulation allows a quick turn around if the user is not 
satisfied with the run (e.g., initial conditions set incorrectly). At the end of a 
simulation run the terminal condition display is shown, which is the runtime display 
with the final parameter values and the reason for termination (see Figure 4.11). 
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Figure 4.10 Simulation Runtime Display 
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Figure 4.11 Simulation Termination Display 



V. THE CONTROL AND SUPPORT OBJECTS 



A. INTRODUCTION 

This chapter presents three of the top-level objects that control the simulation and 
their support objects (see Figure A.1 of Appendix A). The discussion of the top-level 
objects will follow the basic development methodology presented earlier and 
illustrates how the objects demonstrate important features of object oriented 
principles and software engineering principles. This discussion is not intended to be 
a line by line detailed functional description of the code, but is intended to provide 
a basic understanding of how the simulation works (the reader is referred to 
Appendix C and Appendbc D for a complete listing of the simulation). 

B. BASIC METHODOLOGY 

Objects and their messages will appear in capitol letters by convention through 
the remainder of this document. The methodology presented in Chapter II will be 
used to develop the three top-level objects presented in this chapter. These top-level 
objects, and their support objects, will be discussed here to provide a framework for 
presenting the MISSILE and TARGET objects in the next chapter. 

At this the highest level of abstraction, we wish to keep the simulation application 
independent. We might wish to simulate a power plant or missile - our upper most 
level should not reflect what particular application we are using. Objects are 
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necessary to control or manage the simulation. By controlling or managing the 
simulation we mean things like getting user input, initialization, starting and stopping 
the simulation, and presenting data. The objects necessary for these operations are 
identified as the EXECUTIVE, APPLICATION, and USER INTERFACE. The 
EXECUTIVE has no knowledge of what type of simulation is running, it just sees 
the APPLICATION and USER IN I'ERFACE objects and stimulates them with the 
appropriate messages. The APPLICATION object has the knowledge of the specific 
details of the application in terms of what objects exist and their interfaces. The 
USER_INTERFACE object is required for user input and output. The 
APPLICATION will have to be visible to the USER_INTERFACE and the 
USER_INTERFACE must be visible to the APPLICATION. The reasons for this 
will become clear when we examine each object's interface or messages. So far we 
have identified the objects, formed a general characterization of their behavior and 
established their visibility. The next steps of the development methodology, defining 
the interfaces and implementing the objects, will be discussed in more detail in the 
following sections. 

C. OBJECT MESSAGES AND IMPLEMENTATION 

Each object's messages are presented in more detail because they are key to 
understanding an object's capabilities. The Ada with clause allows a package (or 
object) to access or view another package's specification. Package specifications 
define the interface to the package in terms of data structures, function calls and 
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procedure calls available to the users of the package. In our object oriented view, 
package specifications define the external messages that an object can respond to by 
eliciting some type of action or providing the sender with information. Internal 
messages are the functions and procedures that are in the body and not in the 
package specification, and therefor are for the exclusive use of that object. Appendix 
A provides figures that illustrate the objects indicating which objects they "with" and 
their messages. 

D. THE CONTROL OBJECTS 

1. The EXECUTIVE 

The simulation EXECUTIVE is a procedure that forms the upper or outer- 
most layer of the simulation (Figure A.2). This is highest level of abstraction for the 
simulation. The simulation EXECUTIVE contains a context clause that "withes" the 
APPLICATION object and the U SER_IN 1 ERF ACE object. The EXECUTIVE 
sends a message to APPLICATION to initialize the system and a message to the 
USER_INTERFACE to turn over control of the simulation to the user. 

2. The APPLICATION 

The APPLICATION also resides at the simulation's highest level of 
abstraction. The APPLICATION object contains or defines the application specific 
messages or actions for a specific simulation. The APPLICATION might represent 
one of any number of simulations. The APPLICATION object has the following 
messages as shown in Figure A. 3: INITIALIZE_SYSTEM, 
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INITIALIZESIMULATION, NUMBEROFSTATEVARIABLES, 
GETSTATES, PUTSTATES, COMPUTEDERIVATIVES, LOG_DATA, 
ENDCONDITIONMET, ENDOFRUN, CHECKPAUSE, and 
SIMULATION_MAIN. The internal INITIALIZE SYSTEM message sends a 
message to the SYSTEM_SPECIFIC object to initialize the video display and sends 
a message to the USER_INTERFACE to display the initial title screen to the user. 
INITIALIZE_SIMULATION ,an internal message, signals the objects that make up 
the specific application to initialize themselves. This message also frees memory by 
instantiating Ada's UNCHECKED_DEALLOCATION to create a procedure called 
FREE. FREE deallocates memory that was used for storing the previous runs data. 
INITIALIZE SIMULATION will also create an output data file if the simulation is 
logging data to disk. The external COMPUTE_DERIVATIVES message is invoked 
which in turn sends COMPUTE messages to the MISSILE and TARGET objects 
telling them to compute the mathematical derivatives that characterize them. These 
are used as initial values for computing the state variables in the first time step. An 
example of sending or invoking the INmALIZE_SYSTEM from another object (e.g., 
as is done in the body of EXECUTIVE for this particular message) is as follows: 



APPLICATION.INITIALIZE SYSTEM 



When this statement is encountered in the body of EXECUTIVE the 
INITIALIZE_SYSTEM message or procedure defined in APPLICATION will be 
executed. The messages are intended to be self-descriptive. 

GET_DERIVATIVES is an external message that provides the values of the 
MISSILE and TARGET derivatives by sending a GET_DERIVATIVES messages 
to these objects. The external NUMBER_OF_STATE_VARIABLES message 
returns the number of state variables possessed by a specific application. This 
message is used to correctly size the data structures in the INTEGRATION object. 
The external message GET_STATES solicits the appropriate objects for their state 
variables while PUT_STATES provides those objects with updated state variables. 

The internal LOG_DATA message tells the simulation to output data to the 
screen and, if desired, save data to a disk file. The internal CHECK_PAUSE 
message checks to see if the user has paused the simulation run or has decided to 
terminate the run. The internal END_CONDrnON_MET message signals that the 
appropriate conditions have been satisfied and the simulation can be terminated. 

The external message SIMULATION_MAIN is the heart of the 
APPLICATION object. The first action SIMULATION_MAIN takes is to set the 
Boolean variable LOGGING TO DISK according to the value found in 
SETUP VALUES. If LOGGING TO DISK is true, data generated by the 
simulation will be written to a file on disk. SIMULATION_MAIN then tells the 
objects to set themselves up by sending a SETUP message to the missile and aircraft 
objects. There is a distinction in the simulation between setup and initialize. Setup 
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refers to collecting data, either interactively from the user or from default values, 
while initialize refers to using these values to compute initial conditions or initialize 
data structures. After the MISSILE and TARGET have been setup, a message is 
passed to the ENVIRONMENT object to set the time to zero. This is the reference 
time at which the simulation starts. Following this a message is sent to the 
INTEGRATION object establishing the TIME_STEP_SIZE to be used for the 
numeric integration. The NEXT_LOGGING_FRAME and FRAME_NUMBER are 
then set to initial values. Then the simulation is initialized followed by the 
INTEGRATION object. At this point the main loop is entered. This body of code 
will be repeatedly executed until the simulation stops, either by reaching normal end 
conditions or through user intervention. Within the loop the INTEGRATION object 
is told to ADVANCE_TIME. This is the message that drives the computation of 
state variables and hence most of the computations or activity taking place in the 
simulation. Also within the loop, the screen is updated and data logged to disk if 
required. The loop is repeatedly executed until END_CONDITION_MET is true. 
END_CONDmON_MET sends a message to the MISSILE to see if the MISSILE 
specific END_CONDrnON_MET is true (e.g., TARGET intercept has occurred, the 
MISSILE has flown into the ground, etc.) or checks to see if the user has terminated 
the run. Once END_CONDrnON_MET is true, the run-time screen is updated for 
the last time and the internal SHOW_TERMINAL_CONDITIONS message displays 
the terminal conditions of the flight to the user. Finally, the internal END_OF_RUN 
message is invoked to close the output data file if the simulation was logging data to 
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disk. The user then can return to the main menu. At this point the simulation may 
be run again or parameters may be modified. 



3. The USER INTERFACE 

The U SER IN 1 ERFACE object, shown in Figure A.4, allows the user to the 
user to control the simulation through keyboard input, along with presenting run-time 
displays and simulation status information to the user. The USER_INTERFACE is 
designed as a standard interface regardless of what model computer hosts the 
simulation. USERIN 1 ERFACE is menu driven to provide a more 
"user/programmer friendly" interface than previous FORTRAN simulations. 
USER_INTERFACE uses some of Ada's modern language features that are not 
found in FORTRAN. For example, access types (pointers) and records are used to 
form linked lists. The linked lists that form the menus, submenus, and individual 
items are quite easily modified to accommodate growth (i.e., more menus ,submenus, 
or items). Recursion is used to traverse the lists. Recursion makes the code easier 
to read and understand. Ada's variant records simplified the design and building of 
the linked lists. 

The MATH, APPLICATION and SYSTEM SPECIHC objects are made 
visible to USER IN l ERFACE by with clauses. USER_INTERFACE also "withes" 
the Ada predefined packages TEXT_IO and REAL_IO. USER_INTERFACE 
provides the following external messages to its users: MAIN, 

SHOW TITLE SCREEN, DRAW RUNTIME BORDER, and 
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SETUP_RUNTIME_SCREEN. The MAIN message passes an access type to the 
MAIN_MENU as a parameter to the internal MANAGE_MENU object, the heart 
of USER_INTERFACE. MANAGE_MENU navigates through the various menus, 
submenus, and individual items. MANAGE_MENU allows the user to interactively 
enter or modify data. The menus allow the user to build a "missile launch scenario" 
by entering or selecting missile and target parameters. The user may enter a value 
for the missile's launch altitude by typing it at the keyboard, for example. Where 
data takes the form of an enumerated type, for example the launcher type is either 
F-14, F-15, or F-18, the user can cycle through the choices by striking the enter key. 
This is implemented by using the PRED (for predecessor) or SUCC (for successor) 
attributes of enumerated types. 

The user can initiate three actions from USER_INTERFACE: 
LOAD DATA FILE, SAVE DATA FILE, or START RUN. LOAD DATA FILE 
provides the missile launch scenario parameters from a disk file. 
SAVE_DATA_FILE will save the current missile launch scenario, possibly 
customized by the user, to a disk file for later use. The intent here is to enable the 
quick setup of missile launch scenarios that vary from the default scenario. 
START_RUN will gather all the missile/target parameters from the various menus. 
These values become the appropriate object's setup values. At this point 
START_RUN sends a message to APPLICATION (i.e., 
APPLICATION.MAIN(SETUP_VALUES)) that starts the simulation. 
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The SHOW_TlTLE_SCREEN external message clears the user's screen, turns 
off the cursor and displays the initial welcome text. DRAW_RUNTIME_BORDER 
draws the screen border for the runtime screen and displays a text instruction. The 
message SETUP_RUNTIME_SCREEN clears the screen and signals 
DRAW RUNTIME BORDER. Then DRAW RUNTIME SCREEN displays a 
template of the text portion of the simulation data, with the appropriate units, that 
is presented during runtime. For example, "Elapsed time, sec:" is displayed. The 
actual run-time data values are displayed from the APPLICATION object. 

Other important internal messages are: DISPLAY_MENU, 

SETUP MENU DATA, GET TEXT, and GET REAL. DISPLAY MENU is a 
message that displays the individual items in a menu or submenu. This message uses 
the SYSTEM_SPECIFIC object, which will be discussed shortly, for low-level 10. 
SETUP_MENU_DATA establishes all the default values for the MISSILE and 
TARGET parameters found in the menus. GET_TEXT is used to display a prompt 
for text input and then input and validate the user's response. GET_TEXT also uses 
the SYSTEM_SPECIFIC object for much of its low-level lO. GET_REAL is used 
to read real values input by the user. This message provides a more flexible and 
user-friendly method for inputting real numbers than Ada's predefined REAL_IO 
package. SETUP_MENU_DATA, SHOWTITLESCREEN, and 
SETUP_RUNTIME_SCREEN are implemented as separate compilation subunits of 
the main USER_INTERFACE package. This division was made because these units 
contain mostly textual information that tended to clutter and obscure the main 
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USER_INTERFACE package. Also, modifications are easier and compilations are 
faster when these messages are implemented as subunits of the USER_INTERFACE 
package. Editing is easier with smaller modules and the corresponding compilation 
faster. 

E. THE SUPPORT OBJECTS 
1. SYSTEM SPECIFIC 

Modular design and information hiding allow the simulation to be machine 
independent. The simulation was developed and implemented on an IBM AT 
compatible machine. In the future the simulation will be modified to run on an 
Apple Macintosh computer and possibly other systems. To aid this process, all the 
machine dependent code is implemented (hidden) in the SYSTEM_SPECIFIC object 
(see Figure A.5). Most of this code is associated with the IBM video display. By 
rewriting SYSTEM_SPECIFIC for the Apple Macintosh, and keeping the original 
message names, the porting process should consist simply of a recompile of 
SYSTEM_SPECIFIC and a link of the simulation. Also by working at a lower 
system-specific level all screen displays are output in the most efficient manner 
providing very fast screen updates. This prevents the user from perceiving a delay 
as the screen is updated or the next menu is displayed (problems experienced in 
earlier FORTRAN simulations). 
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SYSTEM SPECmC is visible to APPUCATION and USER INTERFACE. A 
number of packages providing DOS environmental support are included with 
Meridian's Ada compiler [Ref. 13]. These include: SYSTEM, 

PROGRAM CONTROL, INTERRUPT, COMMON DISPLAY TYPES, TTY and 
BOX. The SYSTEM package is used to provide an address expression which is a 32 
bit segmented memory address. The address expressions are used for monochrome 
and color video addresses. The PROGRAM_CONTROL package is used to 
terminate the simulation. PROGRAM_CONTROL's QUIT procedure terminates 
the calling program and returns control to DOS. The package INTERRUPT allows 
calls to DOS interrupt vectors. COMMON_DISPLAY_TYPES contains declarations 
for the various packages that handle display operations, such as TTY and BOX. The 
package TTY provides operations on the terminal display and keyboard. TTY links 
in faster than TEXT_IO and calls to the TTY subprograms run faster. The TTY 
subprograms used are GET, PUT, and CHAR_READY. CHAR_READY 
determines if a character is ready to be read from the keyboard. Package BOX 
provides procedures for drawing boxes on the text screen. Also, a Meridian supplied 
package, BIT_OPS, is used for bit-level logical operations [Ref. 14]. 

All of these vendor supplied packages are used in the SYSTEM_SPECIFIC 
to provide the following external messages: INIT_VIDEO, DRAW_BOX, 

CLEARSCREEN, REVERSEVIDEOON, REVERSEVIDEOOFF, 
MOVE_CURSOR,TURN_CURSOR_ON,TURN_CURSOR_OFF,PUT_STRING, 
PUT REAL, INPUT STRING, KEY AVAILABLE, GET KEY, 
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GET_MENU_COMMAND. INIT_VIDEO determines whether the host system has 
a monochrome or EGA display and sets variables accordingly. DRAW_BOX is used 
to draw the screen border. CLEAR_SCREEN clears the video display. 
REVERSE_VIDEO_ON and REVERSE VIDEO OFF control whether text is 
output in reverse video. MOVE_CURSOR moves the cursor to the desired row and 
column of the video display. TURN_CURSOR_ON and TXJRN_CURSOR_OFF 
control whether the cursor is displayed. PUT STRING outputs a character string to 
the video display in normal or reverse video. PUT_REAL outputs a real number to 
the screen. INPUT_STRING inputs text strings from the user. KEY_AVAILABLE 
indicates if a keyboard key has been pressed and GET_KEY returns the scan code 
of the key pressed. GET_MENU_COMMAND uses KEY_AVAILABLE and 
GET_KEY to decode the keyboard input into UP_ARROW, DOWN_ARROW and 
ENTER commands. The implementation details involve advanced DOS 
programming and the reader is referred to Young [Ref. 15] for further information. 

2. INTEGRATION 

The INTEGRATION (see Figure A.6) object performs the numerical 
integration of the MISSILE and TARGET state variables. INTEGRATION is visible 
to the APPLICATION object. Objects visible to INTEGRATION are MATH, 
ENVIRONMENT, and APPLICATION. The integration of the state variables each 
time step drives the MISSILE and TARGET in the simulation. Each TIME_STEP 
time units, the state variables are integrated and fed back to the appropriate objects 
and, along with other computations, are used to form the subsequent TIME_STEP's 
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state variables. For example, INTEGRATE requests the MISSILE'S derivatives, 
which are the MISSILE'S accelerations and velocities. These accelerations and 
velocities are computed by the MISSILE using the previous TIME_STEFs state 
variables (along with other computations). INTEGRATION then integrates the 
MISSILE'S accelerations and velocities to obtain the MISSILE'S velocities and 
position, which form the MISSILE'S current state variables. These state variables are 
then provided to the MISSILE for use during the next TIME_STEP, time is 
advanced TIME_STEP units, and the whole process is repeated. 

The external messages that make all this possible are TIME_STEP_SIZE, 
SET_TIME_STEP_SIZE, INITIALIZE, and ADVANCE TIME. These messages 
form a standard interface regardless of the specific application. TIME_STEP_SIZE 
provides the sender with the current value INTEGRATION is using for 
TIME STEP. SET TIME STEP SIZE permits INTEGRATION'S TIME STEP 
value to be changed. INITIALIZE requests that APPLICATION return the 
application specific object's derivatives and state variables. These values are used 
as initial conditions by INTEGRATION. ADVANCE_TIME is the heart of 
INTEGRATION, as it signals the correct integration method to execute. There are 
numerous methods to perform numeric integration, for example, Hanna, Euler, 
Adams-Bashforth, to name just a few. These methods offer trade offs in terms of 
accuracy and execution speed. By having the method visible only to 
ADVANCE_TIME, changing the particular method used is relatively easy. At this 
time only the Hanna method is implemented [Ref. 16]. The Hanna method is a 
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predictor/corrector numeric integration technique. A temporary state or predictor, 
which is the previous TIME_STEP’s state variables, multiplied by its derivatives and 
TIME_STEP, is computed. Next the ENVIRONMENT object, which keeps track of 
time, is signalled to increment the current time by TIME_STEP units by the 
SET_TIME message. Then INTEGRATION sends MISSILE and TARGET their 
temporary state variables via a message to APPLICATION. INTEGRATION then 
signals MISSILE and TARGET to compute their derivatives via another message to 
APPLICATION. MISSILE and TARGET use their temporary state variables to 
compute their current derivatives. INTEGRATION then requests these derivatives 
to correct the state variables. Finally the current set of derivatives is saved for the 
next TIME_STEP. This process is repeated each time INTEGRATION is sent the 
ADVANCE_TIME message by APPLICATION until APPLICATION stops the 
simulation. 

3. MATH 

The MATH object, shown in Figure A.7, provides external messages that 
perform all the basic mathematical operations required by the simulation. MATH 
also defines all the physical constants used in the simulation, such as PI, E, and the 
gravitational constant G. MATH is visible to most of the upper-level objects. 
MATH withes Meridian's MATH_LIB to provide trigonometric functions such as 
SIN, COS, TAN and their inverses. All these functions have been embedded in 
functions that perform a type conversion of the operands to the real type, as the 
Meridian MATH_LIB is instantiated for the float type. MATH instantiates the real 
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types. Operations, in addition to those provided by MATH_L1B, include LOG, 
LIMIT, •*, MIN, MAX and a variety of matrix and vector operations. LOG provides 
the base 10 logarithm of a number. The overloaded LIMIT compares a real variable 
against a lower and upper limit, and returns either the upper limit if the variable is 
greater than it, the lower limit if the variable is less than it, or the variable, if it falls 
between the two limits. The other LIMIT compares a real variable with the positive 
and negative values of a single limit and returns the appropriate value. The ** 
message provides exponentiation. MIN returns the minimum of two variables while 
MAX returns the maximum of two variables. MATH also instantiates 
REAL_MATRIX from the generic unit MATRIX_AND_VECTOR to provide 
mathematical operations on matrices and vectors. 

4. REAL MATRIX 

REAL_MATRIX (see Figure A.7) is an instantiation of the generic unit 
MATRIX_AND_VECTOR and illustrates Ada’s limited implementation of the object 
oriented inheritance concept. MATRIX_AND_VECTOR is a generic unit that acts 
as a template for packages and provides the means to build reusable software 
components. MATRIX_AND_VECTOR provides all the basic mathematical 
operations for matrices and vectors without specifying what data type make up these 
structures. REAL_MATRIX is the MATRIX_AND_VECTOR object instantiated 
for the real data type. Future requirements may call for the instantiation of 
MATRIX_AND_VECTOR for complex numbers. 
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REAL_MATRIX provides a number of messages for operations on matrices 
and vectors because many of the quantities encountered in the simulation, such as 
forces, are best expressed in terms of vectors or arrays. REAL_MATRIX defines the 
vector type as a one dimensional array of real numbers and the matrix type as a two 
dimensional array of real numbers. The basic operations on matrices are overloaded 
to deal with both single and two dimensional matrices. Ada's attributes for array 
types were very useful in coding these operations. The RANGE attribute provided 
an easy and flexible method for specifying array index constraints. The LAST 
attribute proved valuable for specifying the upper bound on the control variable of 
for loops. The overloaded +, -, * and /, provide for the addition, subtraction, 
multiplication and division of arrays respectively. These messages also contribute to 
the readability of the code. MAGNITUDE returns the magnitude of a vector and 
CROSS_PRODUCT provides the cross product of two vectors. The matrix messages 
TRANSPOSE, IDENTITY, DETERMINANT, and INVERSE provide the services 
that their names suggest [Ref. 17]. 
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VI. THE MISSILE, LAUNCHER AND TARGETS OBJECTS 



A. INTRODUCTION 

This chapter discusses the missile, launcher, and target objects. One of our major 
software engineering goals, understandability, is achieved by implementing and 
discussing the core of the simulation in terms of modular objects. This approach also 
serves to accurately map the real-world problem space (see Figure 3.1) into the 
objects that form the software solution, illustrated in Figure B.l of Appendix B. 



B. THE MISSILE 

The MISSILE object or package withes the LAUNCHER, TARGETS, missile 
subsystem objects and support objects (see Figure B.2). The LAUNCHER object 
provides the missile with launch aircraft information and TARGETS provides target 
information. Missile subsystem objects are the AIRFRAME, AUTOPILOT, 
RF SEEKER, IR SEEKER, and GUIDANCE. The AIRFRAME contains further 
subsystems such as the AERO and THRUST. The missile subsystems serve as a good 
example of abstraction, modularity, low coupling and high cohesion. The support 
objects are MATH, INTEGRATION, KINEMATICS, and ENVIRONMENT. 
MISSILE uses the time keeping messages of ENVIRONMENT. 
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1. MISSILE Messages 

MISSILE messages include SETUP, INITIALIZE, PUTSTATES, 
GET STATES, GET DERIVATIVES, LOG DATA, MANEUVER VALUE, 
END_CONDmONS_MET, TERMESTAL CONDITIONS, and COMPUTE. SETUP 
establishes the launch type, number of targets, number of SOJs and ECM power . 
SETUP also signals the RF_SEEKER and KINEMATIC objects to proceed with 
their SETUP routines. The INITIALIZE message establishes initial conditions for 
many of the missile's physical characteristics such as missile mass, drag, thrust, and 
initial phase of flight. Also during initialization geometric initial conditions such as 
ranges and heading angle are computed. AIRFRAME, GUIDANCE, RF_SEEKER, 
and IR_SEEKER are also signaled to initialize. 

The message PUT_STATES accepts the new states (i.e, missile position and 
velocity) when signaled by the APPLICATION object. GET_STATES presents the 
caller with the current missile states and GET_DERIVATIVES presents the 
derivatives of the current states (i.e., missile velocity and acceleration). 

The LOG_DATA message provides all the missile data, approximately forty 
two items, that are logged to disk or presented on screen to the user. 
MANEUVER_START_VALUE returns the time since launch, time-to-go or range- 
to-go, which is used to initiate the target maneuver. END_CONDITIONS_MET 
provides a Boolean value indicating whether the appropriate conditions (e.g, target 
intercept, missile physical limits exceeded, out of energy, flew into the ground) have 
been met to terminate missile flight. TERMINAL_CONDmONS supplies the 
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reason for flight termination plus terminal data items of interest such as miss 
distance (defined as the point of closest approach), time of flight and missile altitude. 
These are key items for evaluating missile performance. They are displayed on the 
terminal display. 

2. The COMPUTE Message 

The COMPUTE message really drives MISSILE. The following sequence of 
events occurs every time MISSILE is sent the COMPUTE message. COMPUTE 
requests target velocity and position data. Then COMPUTE sends this information, 
along with missile position and velocity to KINEMATICS. KINEMATICS replies 
with missile-to-target range, LOS rate, range-rate and time-to-go. LAUNCHER is 
then signaled to provide the range from the launch aircraft to the target. This 
information is then sent to the RF_SEEKER to determine which RF phase the 
missile is in and to determine the signal-to-noise ratio (SNR) of the signal the 
missile's radar receiver is receiving. COMPUTE then calculates A-pole, defined as 
the range from the launch aircraft to the target when the missile's radar enters the 
K-band acquisition mode (RF phases and modes are discussed in the RF_SEEKER 
section). If the missile is within range to use its IR seeker, IR_SEEKER is signaled 
to determine the IR phase and whether or not the radome has been ejected. 

Next a series of computations and messages are executed resulting in the 
missile's current acceleration vector. First, COMPUTE gives KINEMATICS the 
missile's azimuth (az) and elevation (el) angles, and KINEMATICS returns the 
corresponding direction cosine matrix. Direction cosine matrices are used to 
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transform vectors between different coordinate systems [Ref. 18]. In this case 
KINEMATICS returns the inertial to body coordinate system direction cosine matrix 
(TIB matrix, for transform inertial to body). This matrix is then multiplied by the 
missile-to-target range vector (which is in inertial coordinates) resulting in a missile- 
to-target range vector in missile body coordinates. This operation is also carried out 
on the other range vectors (i.e., second target and SOJs) if appropriate. The range 
vector in missile body coordinates is then sent to RF_SEEKER, which returns the 
seeker gimbal angle in missile body coordinates. COMPUTE then calculates total 
seeker angles (Psi and Theta) by summing the az and el angles with the seeker 
gimbal angles. KINEMATICS is sent these angles to use in computing the direction 
cosine matrix for the inertial to seeker coordinate system transformations (TIS). 

The vector representing LOS rate in inertial coordinates is then transformed into 
seeker coordinates for use by GUIDANCE. COMPUTE also calculates missile 
altitude, and altitude rate which are used along with the LOS rate in seeker 
coordinates by GUIDANCE. GUIDANCE is sent these values, along with time-to- 
go and target position information and returns the guidance phase and commanded 
acceleration. Simply stated, given missile and target position and velocity 
information, GUIDANCE determines the required acceleration commands for the 
missile to intercept the target. COMPUTE then signals AUTOPILOT.COMPUTE 
with the commanded accelerations and receives back the achieved accelerations. 
KINEMATICS then, given the missile’s altitude and velocity, returns the missile’s 
mach number. COMPUTE signals THRUST with the missile’s mach and altitude 



61 



and receives assorted information such as missile mass, propulsion phase, and thrust. 
The achieved accelerations provided by AUTOPILOT.COMPUTE, along with missile 
mach and altitude, are sent to AIRFRAME.AERO which returns the missile's 
coefficient of drag and angle of attack. These values, along with missile position, 
velocity, and acceleration, are sent to KINEMATICS (equations of motion) which 
returns updated missile velocity information, pitch and dynamic pressure (Q). Finally 
the achieved accelerations provided by AUTOPILOT.COMPUTE are transformed 
from body to inertial coordinates. At this point COMPUTE has completed updating 
the missile's state. 

C KINEMATICS 

The KINEMATICS, shown in Figure B.3, object calculates direction cosine 
matrices, missile acceleration, velocity, position and flight path data. KINEMATICS 
has the following messages: SETUP, INITIALIZE, MACH_NO, DIR_COS, 
COMPUTE, and EOM. 

SETUP establishes the number of targets and the number of SOJs. INITIALIZE 
initializes ranges, range rates, and LOS rate. MACH_NO, given missile altitude and 
velocity, returns the missile's mach number. DIR_COS, given two reference angles 
between two different coordinate systems, returns the corresponding direction cosine 
matrix. This matrix is then used to transform vectors from one coordinate system to 
the other [Ref. 18]. 
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The COMPUTE message calculates velocity, range, LOS rate and time-to-go. 
COMPUTE calculates missile-to*target velocity as the difference between target and 
missile velocity. The missile-to-target range vector is calculated as the difference 
between target position and missile position. Both a total range vector and unit 
range vector are also calculated. The range rate, defined as the rate of change of the 
missile*to*target range vector, is computed as the vector dot product of the range unit 
vector and the missile-to-target velocity vector. The LOS rate is then calculated as 
the vector cross product of the range unit vector and the missile-to-target velocity 
divided by total range. Range calculations are then performed for the SOJs if 
appropriate. Finally time-to-go, the estimated time to target intercept, is calculated. 
Time-to-go is computed, depending on various conditions, as either range to point 
of closest approach (miss distance) divided by range rate or target range divided by 
range rate. Care has to be taken to account for possible opening ranges immediately 
after missile launch , to avoid inaccurate miss distance calculations during initial 
flight phases, and to account for range rate becoming less than or equal to zero 
during the final phase of flight. 

KINEMATICS' equations-of-motion message, EOM, calculates the missile's axial 
acceleration vector, pitch and heading. First pitch and heading are determined 
through trigonometric relations of angle-of-attack and velocity. Then a message is 
sent to ENVIRONMENT to get the air density. The air density, along with missile 
velocity, is used to compute the dynamic pressure (Q). Missile drag is then 
computed as the product of dynamic pressure, the missile's coefficient of drag and 
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reference area (sref). Finally, the missile's axial acceleration vector is calculated and 
returned to the caller. This completes the description of KINEMATICS. 



D. THE AIRFRAME 

The AIRFRAME models the missile's aerodynamic characteristics and thrust 
characteristics. AIRFRAME'S messages are INITIALIZE, AERO, and THRUST as 
shown in Figure B.4. 

INITIALIZE initializes the propulsion phase, and various physical constants. The 
AERO message, given missile achieved acceleration, mach, altitude, dynamic 
pressure (Q), and the dome condition, returns the missile's coefficient of drag and 
angle-of-attack (AOA or Alpha). The AOA is the difference between the missile's 
velocity vector and its body vector. The drag coefficient is represented as a series 
of equations that are a function of missile mach. These equations represent a curve 
fit of data found through wind tunnel testing of the missile. In order for the missile's 
IR seeker to function, the radome, or dome, is ejected or blown off in the final phase 
of flight, increasing the drag coefficient. 

THRUST uses missile mach, altitude, fuel mass, and missile mass to provide the 
thrust force and. propulsion phase. The missile is modeled as having a solid fuel 
rocket motor. The rocket motor is fired at launch for a rail launch, or shortly after 
ejection for an eject launch. The initial propulsion phase is termed the boost phase. 
After the fuel is exhausted the missile enters the coast propulsion phase. 
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E. THE AUTOPILOT 



AUTOPILOT accepts commanded accelerations and returns achieved accelerations 
dependent on the body responses of the missile. AUTOPILOTS messages are 
INITIALIZE, UPDATE DIFF EQS, COMPUTE, and ACCELERATIONS (see 
Figure B.5). INITIALIZE establishes initial values for autopilot constants. The 
autopilot has been modeled by differential equations which have been implemented 
as difference equations to avoid the instabilities caused by round-off error [Ref. 10]. 
UPDATE_DIFF_EQS updates the achieved accelerations through the difference 
equations. COMPUTE, given the commanded accelerations, returns the achieved 
accelerations, while ACCELERATIONS returns the instantaneous accelerations 
being experienced by the missile. AUTOPILOT serves as a good example of an 
object with a simple, well defined interface. This interface can be thought of as a 
standard interface in that, regardless of how the autopilot is modelled, this interface 
can remain unchanged. AUTOPILOT also serves as a good example of an object 
or a module that would be an excellent candidate to go into a library of missile 
subsystems. As production missiles mature, subsystems with new designs are 
incorporated. A library of various subsystems would allow the analyst to easily 
configure the simulation to match any production version of the missile. This would 
also permit the experimentation of new configurations with untested subsystem 
models. 
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F. GUIDANCE 



The function of GUIDANCE is to guide the missile to the target. GUIDANCE 
withes the MATH object. Figure B.6 indicates GUIDANCE'S messages are 
INITIALIZE and COMPUTE. 

INITIALIZE, given missile altitude, target altitude, range, and velocity computes 
initial values for a number of guidance parameters. Guidance parameters such as 
guidance phase, horizontal target range, velocity, aspect angles and time estimates. 
COMPUTE, given time-to-go, missile altitude, altitude rate, velocity, axial 
acceleration, pitch,seeker gimbal angles, LOS rate, and target position and velocity, 
returns the guidance phase and acceleration commands. These commanded 
accelerations will guide the missile to intercept the target. 

There are five guidance modes or phases: null commands,load bias, variable arc, 
altitude hold, and terminal. Immediately following launch the missile is in the null 
commands phase. The purpose of this phase is to ensure that no guidance 
commands are generated until the missile is safely clear of the launch aircraft. The 
load bias phase commands a five g pull-up maneuver until the missile achieves a 20 
degree nose up attitude. The missile then enters the variable arc phase where it is 
commanded to climb to a predetermined altitude. Once reaching the predetermined 
altitude, the missile will remain at that altitude throughout the altitude hold phase. 
This enables the missile to dive on the target in the terminal phase, maximizing its 
available energy to provide maximum range. The missile uses proportional 
navigation with acceleration compensation to compensate for missile and target 
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accelerations [Ref. 19]. Horizontal, or azimuth proportional navigation is used in all 
guidance phases except null commands, while vertical proportional navigation is used 
only in the terminal phase. 

Messages internal to COMPUTE are GUIDANCE_MODE, 
ALTmjDE_HOLD_CMD, and GUIDANCE COMMANDS. GUIDANCE MODE 
replies with the current guidance phase. AL'nTUDE_HOLD_COMMAND 
commands the missile to hold a constant altitude. GUIDANCE_COMMANDS 
calculates the commanded accelerations or guidance commands. 

G. THE RF AND IR SEEKERS 

The missile uses its RF or IR seeker to get information about the target [Ref. 20]. 
At longer ranges, the missile simply receives the RF energy reflected off the target 
from the launch aircraft’s radar. This is known as the semi-active phase. The launch 
aircraft's radar operates in the X-band frequency range. Initially the aircraft's radar 
is in the X-band acquisition mode and upon acquiring the target enters the X-band 
track mode. At medium ranges, the missile's on-board radar activates to provide 
target information. This is known as the active phase. The missile's radar operates 
in the K-band frequency range. The missile's radar is initially in the K-band 
acquisition phase and enters the K-band track mode upon acquiring the target. At 
short ranges, the missile activates its IR seeker to acquire and track the target in the 
terminal phase of flight. Like the RF seeker, the IR seeker has an initial acquisition 
mode that is followed by a track mode once the target is acquired. In summary, at 
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long ranges the launch aircraft's more powerful radar provides the best target 
information, while at medium ranges the missile's own radar provides the best target 
information, and at short ranges the missile's IR sensor provides the best target 
information. Modeling missile seekers is very complex and involves security issues. 
The seekers modeled here are rudimentary and future seeker work is discussed in 
Chapter VII. 

The RF_SEEKER's external messages are SETUP, INITIALIZE, GIMBAL, and 
DETECTION (see Figure B.7). SETUP establishes the number of targets and SOJs, 
ECM techniques and power, and the target's RCS. INITIALIZE initializes the RF 
phase and radar power levels. GIMBAL, given the missile-to-target range vector, 
replies with the seeker gimbal angles. DETECTION, given missile-to-target range 
and launch aircraft-to-target range, responds with the RF phase, SNR, the selected 
target number, and bore sight error (BSE). The missile's BSE in this simulation is 
the same as the LOS, an imaginary line from the missile's seeker to the target. The 
BSE to target two is the angle between the BSE to target one and the LOS to target 
two. This parameter affects power levels received by the missile's radar. 

RF_SEEKER's internal messages are BORESIGHT_ERROR , 
MSLANTGAINSSA, MSLANTGAINSA, SAPOWERS, APOWERS, 
SA PHASE, A PHASE, SA DETECT, and A DETECT. BORESIGHT ERROR 
calculates the bore sight error to the targets and SOJs. This defines the encounter 
geometry for the radar system and affects the corresponding power levels of the 
targets and SOJs seen by the radar system. MSL_ANT_GAINS_SA and 
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MSL_ANT_GAINS_A calculate the appropriate gain of the missile's radar antenna 
depending on the RF phase. SA_POWERS and A_POWERS calculates the power 
received by the missile's radar receiver based on the classic radar range equation 
[Ref. 21]. SA_MODE and A_MODE determine the RF mode, acquisition or track, 
for the semi-active and active RF phases. The SA_DETECT and A_DETECT 
determine whether or not the missile can detect a target given the power level 
received. 

IR SEEKER's messages are INITIALIZE and DETECTION as shown in Figure 
B.8. INITIALIZE establishes the IR phase and initializes search, acquisition and 
track times. DETECTION, given missile-to-target range, replies with the IR phase 
and Boolean RADOME_OFF, indicating the state of the radome. 



H. THE LAUNCHER 

The LAUNCHER object represents the aircraft that carries and launches the 
missile. LAUNCHER withes MATH for math operations and ENVIRONMENT for 
its SPEED_OF_SOUND message (see Figure B.9). LAUNCHER'S messages are 
INITIALIZE, MSL INIT, SETUP, LOG DATA, GET STATES, PUT STATES, 
GET DERIVATTVES, POLE and COMPUTE. 

INITIALIZE initializes the launch aircraft's velocity and position. MSL_INIT 
provides launch aircraft initialization information for use by the missile. This 
message provides the missile with the launch aircraft's velocity and position, and 
certain radar characteristics based on the launch aircraft type. SETUP establishes 
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the launch aircraft's guidance phase, lead angle, mach, and altitude. LOG_DATA 
provides the launch aircraft's position to the sender. GET_STATES returns the 
launch aircraft's state vector, while PUT_STATES updates the launch aircraft's state 
vector. The derivatives of the launch aircraft's state vector are supplied with 
GET_DERIVATIVES. POLE provides the distance from the launch aircraft to the 
target. The COMPUTE message provides the launch aircraft's velocity if the launch 
aircraft is in the pursuit guidance mode. 

I. -raE TARGETS 

The TARGETS object models the aircraft that the missile is to intercept. The 
Ada package TARGETS is made up of four targets. Two of these targets, target one 
and target two, are treated as the primary targets, and targets three and four are 
treated as stand off jammers (SOJs). TARGETS withes MATH, ENVIRONMENT, 
and MISSILE, as shown if Figure B.IO. TARGETS withes MATH for mathematical 
operations and uses ENVIRONMENT for its time keeping services and its 
SPEED_OF_SOUND message. TARGETS uses the MISSILE message 
MANEUVER_VALUE to coordinate target maneuvers. 

TARGETS' messages are SETUP, INITIALIZE, LOG_DATA, GET STATES, 
PUT STATES, GET DERFVATIVES, TGT DATA, and COMPUTE. SETUP sets 
up the user entered target parameters. INITIALIZE computes the initial position 
and velocity parameters for the targets. INITIALIZE also calculates the final turn 
angle and weave period if appropriate. LOG_DATA provides the targets' position. 
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velocity and heading data for data logging. GET_STATES and PUT_STATES put 
and get the targets' state vector (position), respectively. GET_DERIVATIVES 
provides the derivatives of the targets’ state vector (velocity). TGT_DATA provides 
both target position and velocity data to the sender. TGT_ASPECT provides the 
sender with the target one's aspect angle. 

COMPUTE is the heart of TARGETS. COMPUTE calculates the targets' 
position, velocity and heading angle dependent on target maneuver. Appropriate 
conditions are checked resulting in the setting of flags and the times for the 
corresponding target maneuver. Then the build-up time must be considered. The 
build-up time is the time from the initiation of the maneuver until the desired 
number of g's is achieved. This models the real world condition that commanded 
maneuvers are not achieved instantaneously. The rate of change of the target's 
heading is then calculated along with the number of g’s the target is experiencing. 
The current target heading angle is then compared with the final desired turn angle. 
The target velocity vector and mach are then computed. Finally, the second target's 
position is computed based on its geometric relation with the first target. To 
sununarize, the target heading angle is calculated based on maneuver type. Because 
the targets have a constant velocity, the target heading angle is required to compute 
the velocity vector, which in turn permits the computation of the targets' position 
vector. 
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J. THE ENVIRONMENT 



The ENVIRONMENT provides atmospheric and time information. 
ENVIRONMENTS messages are SET TIME, TIME, AIR DENSITY, and 
SPEED_OF_SOUND (see Figure B.ll). ENVIRONMENT is the simulation’s time 
keeper. SET_TIME allows the system time to initialized and incremented. The 
TIME message provides the current system time. AIR_DENSITY provides the air 
density for a given altitude, while SPEED_OF_SOUND provides the speed of sound 
at a given altitude [Ref. 9]. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

This thesis has explored using object oriented techniques and software engineering 
principles in conjunction with the Ada programming language to develop a missile 
flight simulation. By using these techniques and principles the problem space is 
accurately mapped into software. This, along with the principles of abstraction, 
information hiding, modularity, loose coupling, and strong cohesion produced a 
simulation that is easily understood, modifiable, efficient and reliable. 

Although understandability can be very subjective, all of the missile analysts who 
reviewed the simulation agreed that the code is much more easily understood than 
previous FORTRAN versions. Modularity, high cohesion, and loose coupling 
permitted the simulation to be modified in easily. Modules were designed to serve 
a single purpose and to make use of only the data or control information presented 
by the interfaces of other modules. All the interfaces are well defined and are 
standard for that particular module. A good example is the abstraction of the missile 
airframe subsystem. By being modular and having a standard well defined interface, 
this subsystem evolved from a program stub to a fairly complex model with minimal 
programming effort. Also by having a standard well defined interface between 
objects or modules, a library of different models can be built to explore different 
missile and target configurations. The simulation is simply relinked with the desired 
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module. This allows a number of different models to be built relatively quickly. 
These models then can be used for comparison studies. 

Through abstraction, information hiding, and modularity a very efficient user 
interface was developed. The simulation has also proven itself to be highly reliable, 
producing consistent results that agree with missile system expert's predictions. The 
simulation has also proven to be quite robust, surviving the most mischievous users 
without crashing. 



B. RECOMMENDATIONS AND FUTURE WORK 

This thesis has laid the ground work for a generic missile flight simulation that 
will evolve to model existing classified missile systems. The continued improvement 
of the various models used in the simulation is highly recommended. Future work 
includes consulting local Pacific Missile Test Center missile system experts to 
improve and validate models. This will involve modifying the generic MISSILE to 
model a specific missile system. Work could then progress on the classified aspects 
of the missile's radar system and the electronic countermeasures aspects of the 
simulation. This might include modifying the ENVIRONMENT to model IR 
environmental concerns such as fog and haze, and radar environmental concerns such 
as ground clutter. The objects or modules will permit the experts to concentrate on 
the detailed level of their particular area of expertise, isolated, if desired, from the 
programming details of the other objects. Drivers will be developed to permit these 
objects to be tested stand-alone as individual components. 
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Work is also underway on the SYSTEM_SPECIFIC and LOW_LEVEL objects 
for the Apple Macintosh computer. Once these objects are developed the simulation 
will run on the Macintosh computer. A particularly good area for future work 
involves the data the simulation generates. The simulation is capable of generating 
large amounts of data that must be interpreted by analysts. Work is progressing on 
a object or package that will plot the data sets. Future work might include an expert 
system that reviews the data to assist the analyst in identifying problem areas in 
missile performance. 
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APPENDIX A 



CONTROL AND SUPPORT OBJECT DIAGRAMS 
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Figure A.l The Control and Support Objects 
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Figure A.2 The EXECUTIVE 
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APPLICATION 
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PUT_STATES 

COMPUTE-DERIVATIVES 

L06_DATA 

END_C0NDITI0N5_MET 

END_OF_RUN 

CHECK_PAUSE 

SIMULATION_MAIN 



Figure A.3 The APPLICATION 
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U5ER_INTERFACE 
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Figure A.4 The USER_INTERFACE 
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Figure A.5 SYSTEM SPECIFIC 
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INTEGRATION 
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Figure A.6 INTEGRATION 
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Figure A.7 MATH 
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APPENDIX B 

PROBLEM SPACE OBJECT DIAGRAMS 
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Figure B.l The Software Mapping of the Problem Space 
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Figure B.2 The MISSILE 
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Figure B.3 KINEMATICS 
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Figure B.4 The AIRFRAME 
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Figure B.5 The AUTOPILOT 
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Figure B.6 GUIDANCE 
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Figure B.7 The RF_SEEKER 
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Figure B.8 The IR_SEEKER 
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Figure B.9 The LAUNCHER 
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Figure B.IO The TARGETS 
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Figure B.ll The ENVIRONMENT 
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APPENDIX C 



CONTROL OBJECT SOURCE CODE LISTING 



-- Simulation Executive Procedure 

-- This is the top level procedure for the simulation. 



with APPLICATION; 
with USER^INTERFACE; 

procedure SIM is 
begin 

APPL I CAT I ON . I N I T I AL I ZE_SYSTEM ; 

USER_INTERFACE.MAIN; 
end SIM; 



-- Application Package Specification 

-- This package contains the application specific functions called by the 
-- general Executive Package. 



with MATH; use MATH; 

with REAL_MATRIX; use REAL_MATRIX; 

with MOOEL__TYPES; use MOOEL_TYPES; 

package APPLICATION is 

function NUMBER_OF_STATE_VARIABLES 
return integer; 

function ENO_CONDITION_MET 
return boolean; 

procedure INITIALIZE_SYSTEM; 

procedure SIMULATION_MAIN( 

SETUP_VALUES : in SETUP_VALUES_TYPE); 

procedure GET_DERIVATIVES < 

DERIVATIVES : out VECTOR); 

procedure GET_STATES ( 

STATES : out VECTOR); 

procedure PUT_STATES ( 

STATES : in VECTOR); 

procedure COMPUTE_OERIVATIVES; 

procedure LOG^OATA; 

procedure END_OF_RUN; 

procedure GET_TIMES(TIME_ARRAY : out VECTOR; NUMBER_OF_VALUES ; out 
integer); 

procedure GET_VARIABLE(WHICH_VARIABLE : in integer; RETURN_VARIABLE : 
out VECTOR; NUMBER_OF_VALUES : out integer); 

end APPLICATION; 
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■ APPl i cat ion Package Body 

- This package contains the application specific functions called by the 

- general Executive Package. 



with MATH; use MATH; 

with MODEL TYPES; use MOOEL^TYPES; 

with REAL MATRIX; use REAL_MATRIX; 

with ENVIRONMENT; 

with SYSTEM_SPECIFIC; 

with USER_INTERFACE; 

with MISsTlE; 

with LAUNCHER; 

with TARGETS; 

with Calendar; use Calendar; 

with Text_io; 

with REAL 10; 

with INTEGRATION; 

with LOW_LEVEL_GRAPHICS; 

with UNCHECKED_DEALLOCATION; 

package body APPLICATION is 
LOGGING_TO_DISK : boolean; 

MEMORY_FULL : boolean; 

LOG INTERVAL : integer; -- Frames between data logging 
LOG“rECORD : LOG_RECORD_TYPE; 

type LOGGED_DATA; 

type LOGGED_DATA_PTR_TYPE is access LOGGED DATA; 

type LOGGED_DATA is 

record 

time : real; 

DATA : LOG_RECORD_TYPE; 

NEXT_RECORD : LOGGED_DATA_PTR_TYPE; 
end record; 

pragma PACK(LOGGED_DATA); 

FIRST_DATA_RECORD : LOGGED DATA_PTR_TYPE := null; 
CURRENT_DATA_RECORD : LOGGED_DATA_PTR_TYPE; 

TERMINATE_FLAG : boolean; 

START^TIME : Time; 

LOG DATA FILE : Text io. Fi le_type; 

MISSILE_STATES : VECTORd . .6); 

LAUNCHER_STATES : VECTORd . .3); 

TARGET^STATES : VECTORd.. 3); 

procedure LOG_DATA is separate; 



procedure SHOW TERMINAL CONDITIONS is 
A_P0LE : REAL; 

MISS_DISTANCE: REAL; 

TIME_0F FLIGHT: REAL; 

ALTITUDE: REAL; 

RDOT: REAL; 

STOP^COND I T I ON : STOP_COND I T I ON_TYPE ; 
begin 

MISSILE.TERMINAL_CONDITlONS(A POLE, MISS DISTANCE, TIME_OF_FLIGHT, 
ALT I TUDE , RDOT , ST0P_C0 ND I tToN ) ; 

SYSTEM_SPECIFIC.PUT_REAL( 2,29, TIME OF FLIGHT); 
SYSTEM_SPECIFIC.PUT_REAL( 3,67,ALTITUDe 7 D; ’• Altitude 
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SYSTEM SPECIFIC.PUT_REAL( 15,67,MISS_DISTANCE/ FEET_PER_NMI , 1); 
SYSTEM”sPECIFIC.PUT REAL(16,67,RD0T, 1); 
SYSTEM_SPECIFIC.PUt”sTRING( 21,41, "Reason for termination 
SYSTEM_SPECIFIC.PUT”sTRING(21,68, STOP_REASON(STOP_CONDITION)); 

if MISS_DISTANCE < 10_000,0 then 

SYSTEM_SPECIFIC.PUT STRING(22,41 , "Miss Distance, ft :"); 

SYSTEM_SPECIFIC.PUT”rEAL( 22,67,MISS_DISTANCE,2); -- Miss-Dist, ft 
end if; 

if MISSILE, IS_ACTIVE then 

SYSTEM_SPECIFIC.PUT_STRING(23,41, "A-Pole, NMI 

SYSTEM_SPECIFIC,PUT_REAL(23,67, A^POLE / FEET^PER^NMI ); -- A-Pole 
end if; 

end SHOW_TERMINAL_CONDITIONS; 



procedure INITIALIZE_SIMULATION(OUTPUT_FILE : in string) is 
procedure FREE is new UNCHECKED DEALLOCATIONC 
LOGGED_DATA, LOGGED_DATA_PTR_TYPE); 

PREV_DATA_RECORD : LOGGED_DATA_PTR_TYPE; 
begin 

if FIRST DATA_RECORD /= null then 

CURRENT DATA_RECORD := FIRST_DATA_RECORD; 
while CURRENT_DATA_RECORD.NEXT_RECORD /= null loop 
PREV_DATA_RECORD := CURRENT_DATA_RECORD; 
CURRENT_DATA_RECORD := CURRENT_DATA_RECORD.NEXT_RECORD; 
FREE(PREV_DATA_RECORD); 
end loop; 

FREE(CURRENT_DATA_RECORD); 

FIRST_DATA_RECORD := null; 
end if; 



TERMINATE_FLAG := false; 

LAUNCHER. INIT IALIZE; 
TARGETS,INITIALIZE; 

MISSILE. INITIALIZE; 
USER_INTERFACE.SETUP_RUNTIME_SCREEN; 
START TIME := Clock; 

MEMORY_FULL := false; 
if LOGGING TO DISK then 



Text_io.Create(LOG_DATA_FILE, Text Jo. Out file, OUTPUTJILE); 
Text_io.Put(LOG_DATA_FILE , 



"T 



Text 



ime ,Msl_Pos N ,Msl_Pos_E ,Altitude 

O.Put(L0G DATA FILE , 



,RJACJgt ,"); 



"Velocity ,Msl_Head_A,Pitch_Ang ,Msl_Mach , Range Jgt ,"); 
Text_io.Put(LOG_DATA_FILE , 

"Range_Rate, T i me J o_Go, Skr J otAng , Skr_E l_Ang , Skr_Az_Ang ,"); 
Text_io.Put(LOG_DATAJILE , 

"E l_Ra t e J 1 , Azjate J 1 , A I t_Rat e , Az_Acc_Cmd, E l_Acc_Cmd ,"); 
Text_io.Put(LOG_DATA_FILE , 

"XJxis _Acc,Az_Acc_Ach,El_Acc_Ach,Msl_Mass , Thrust ,"); 



Text 



Text 



Text 



TextJo.Put(LOG_DATAJILE , 

"Tot Alpha , Alpha ,Beta 

Text io.Put(LOG_DATAJILE , 



,SNR 



,Drag_Coef ,"); 



"Tgt Type ,Tgt 1 BSE ,Tgt 2 BSE ,Tgt 3 BSE ,Tgt 4 BSE ,"); 
O.Put(L0G_DATA_FILE , 

"LAC Jos J ,LACJos_E ,LAC_Alt ,TlJos_N ,TlJosJ ,"); 

O.Put(LOG_DATAJILE , 

"Tljlt 7 t2J0SJ ,T2JosJ ,T2 Alt ,Tl_Vel ,"); 

O.Put(LOG_DATA_FILE , 

"Tl_Mach ,Tl_Hdg_Ang,Guid_Phase,Msl_Phase ,RF_Phase ,"); 



Text_io.Put(LOG_DATAjILE , 

"IR_Phase ,Radom_Off ,Prop_Phase"); 
Tex t_i o . New_l i ne( LOG JATA J I LE ) ; 



end if; 



COMPUTE_DERIVATIVES; 
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end INITIALIZE SIMULATION 



procedure CHECK_PAUSE is 

KEY_AVAILA8LE : boolean; 

KEY : character; 
begin 

USER_INTERFACE.KEYBOARD_HANDLER.KEY_AVAILA8LE(KEY_AVAILABLE); 
if not END_CONDITION_MET and not KEY^AVAILABLE then 
return; 
end if; 

USER_INTERFACE. KEYBOARD HANDLER .GET_KEY NOWAIT(KEY, KEY_AVAI LABLE); 
if END_CONDITION_MET or'else (KEY_AVAILABLE and KEY = ' •) then 
SYSTEM_SPEC I F I C . REVERSE_VI DEO_ON ; 

if END_CONDITION_MET then 

SYSTEM_SPEC I F I C . PUT_STR I NG( 24 , 12, 

" Run completed. Press space bar to return to main menu "); 

else 

SYSTEM_SPEC I F I C . PUT_STR I NG( 24 , 15, 

*' Press space bar to continue run, T to terminate "); 

end if; 

SYSTEM_SPECIFIC.REVERSE_VIDEO_OFF; 

loop 

USER_I NTERFACE . KEYBOARD_HANDLER . GET_KEY_WAI T(KEY ) ; 

if KEY = ' • then 

if not END CONDITION MET then 

USER_I NTERFACE . DRAW_RUNT I ME_80RDER ; 
end if; 
exit; 
end if; 

if KEY = 't* or KEY = 'T' then 
TERMINATE^FLAG := true; 
exit; 
end if; 
end loop; 
end if; 

end CHECK_PAUSE; 



procedure SIMULATION_MAIN(SETUP VALUES : in SETUP VALUES_TYPE) is 
FRAME_NUM8ER : integer; 

NEXT_LOGGING_FRAME : integer; 
begin 

LOGGING_TO_DISK ;= boolean' val (YES^NO^TYPE * pos(SETUP_VALUES. LOG_DATA)); 

LAUNCHER. SETUP(SETUP VALUES. I NT_GU I DANCE, 

DEG_TO RAD*SETUP” VALUES. INT LEAD_ANGLE_IC, 

setup_values.int”mach IC, 

1 000 . 0*SETUP VALUES . I NT_ALT I TUDE_I C , 

setup_valuesTi NT_TYPE_I C) ; 

TARGETS. SETUP(DEG_TO RAD*SETUP_VALUES.TGT_ASPECT_IC, 

SETUP VALUES. TGT2_ANGLE_IC, 

SETUP”VALUES.TGT_MACH_IC, 

SE TUP”VA LUE S . TGT“tURn“g_ I C , 

SETUP”VALUES.TGT_WEAVE_PER_1C, 

SETUP_VALUES.TGT_TURNON VALUE_IC, 

DEG_TO_RAD*SETUP VALUESTtGT_TURN_ANG_IC, 

SETUP VALUES. TGT'bUILDUP TIME IC, 

setupIvalues.tgt”range_ic, 

SETUP_VALUES.TGT“aLTITUDE IC, 

setup_values.soj~angle_ic7 

SETUP VALUES. MANEUVER_KIND, 
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SETUP^VALUES.TGT TWO IC, 

SETUP“VALUES . SO j”ONE J C , 

SETUP VALUES. SOJ_TWO’lC, 

setup“values.turn_on”parameter); 

MISSILE. SETUP( SETUP_VALUES . LAUNCH TYPE , 

SETUP_VALUES.TGT RCSJC, 

SETUP_VALUES . TGtT_I R_S I 2E , 

SETUP VALUES. TGT2_IR_S I ZE, 

SETUP”VALUES.TGT_TWO_IC, 

SETUP VALUES. S0J”0NE”iC, 

SETUP^VALUES . SOJ’tWOJ C, 

SETUP"VALUES.TGT_ECM POWER_IC, 

SETUP_VALUES . TGT_ECM”tECH_I C, 

SETUP_VALUES . SOJ_ECm”tECH_I C) ; 

LOG INTERVAL := SETUP VALUES. LOG_lNTERVAL; 

ENVIRONMENT. SET TIME(O.O); 

I NTEGRAT I ON . SET~T I ME_STEP_S I ZE ( SETUP_VALUES . FRAME_T I ME ) ; 
NEXT_LOGGING_FRAME := 1; 

FRAME_NUMBER := DE- 
INITIALIZE SIMULATION(SETUP VALUES. OUTPUT FILE); 
INTEGRATION.INITIALIZE; 

while not END_CONDITION_MET loop 

FRAME^NUMBER := FRAME_NUMBER + 1; 

if FRAME NUMBER = NEXT LOGGING FRAME then 
LOG_DATA; 

NEXT_LOGGING_FRAME := NEXT_LOGGI NG_FRAME + LOG_INTERVAL; 
end if; 

I NTEGRAT I ON . ADVANCE^T I ME ; 

if END CONDITION MET then 
LOG_DATA; 

SHOW_TERM I NAL_COND I T I ONS; 
end if; 

CHECK_PAUSE; 

end loop; 

END_OF_RUN; 
end SIMULATION_MAIN; 



function NUMBER_OF_STATE_VARIABLES 
return integer is 
begin 

return 14; 

end NUMBER_OF_STATE_VARIABLES; 



function END_CONOITION_MET 
return boolean is 
begin 

if TERMINATE^FLAG or MI SSI LE .END_C0NDITI0NS_MET then 
return true; 

else 

return false; 
end if; 

end END CONDITION MET; 



procedure INITIALIZE_SYSTEM is 
begin 

SYSTEM_SPECI F I C . I N I T_VI DEO; 

USER INTERFACE.SHOW_TITLE SCREEN; 
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end INITIALIZE_SYSTEM; 



procedure GET_DERIVATIVES ( 

DERIVATIVES : out VECTOR) is 
begin 

DERIVATIVESC1..6) := MISSILE.GET_DERIVATIVES; 
DERIVATIVES(7,.9) := LAUNCHER,GET_DERIVATIVES; 
DERIVATIVES(10..12) := TARGETS. GET DERIVATIVES; 
end GET_DERIVATIVES; 



procedure GET_STATES ( 

STATES : out VECTOR) is 
begin 

STATESC1..6) := MISSILE. GET_STATES; 
STATESC7..9) := LAUNCHER. GEt]]sTATES; 
STATES(10..12) := TARGETS. GET_STATES; 
end GET_STATES; 



procedure PUT_STATES ( 

STATES : in VECTOR) is 
begin 

MISSILE_STATES := STATES(1 . .6); 

MISSI LE .PUT_STATES(MISSILE_STATES); 
LAUNCHER_STATES := STATESC7..9); 
TARGET_STATES := STATES(10. . 12); 
LAUNCHER . PUT STATES( LAUNCHER_STATES ) ; 
TARGETS . PUT_STATES( TARGET^STATES ) ; 
end PUT STATES; 



procedure COMPUTE^DERIVATIVES is 
begin 

LAUNCHER. COMPUTER- 
TARGETS. COMPUTER- 
MISSILE. COMPUTE; 
end COMPUTE_DERIVATIVES; 



procedure END_OF_RUN is 
begin 

if LOGGING_TO_DISK then 

Text_io.Close(LOG_DATA_FILE); 
end if; 

end END^OF^RUN; 



procedure GET_TIMES(TIME_ARRAY : out VECTOR; NUMBER_OF_VALUES : out 
integer) is 

NUMBER VARIABLES : integer; 

DATA^RECORD : LOGGED^DATA^PTR^TYPE; 
begin 

DATA RECORD := FIRST_DATA_RECORD; 

NUMBER^VARIABLES := 1; 

while (DATA_RECORD /= null) loop 

TIME ARRAYCNUMBER VARIABLES) := DATA RECORD. Time; 
DATA“rECORD := DATA RECORD. NEXT_RECORD; 

NUMBER^VARIABLES :=“nUMBER_VARIABLES + 1; 
end loop; 

NUMBER_OF_VALUES := NUMBER VARIABLES - 1; 
end GET TIMES; 



procedure GET_VARIABLE(WHICH_VARIABLE : in integer; RETURN_VARIABLE : 
out VECTOR; NUMBER_OF VALUES : out integer) is 
NUMBER VARIABLES : integer; 

DATA RECORD : LOGGED DATA PTR TYPE; 
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begin 

DATA RECORD := FIRST_DATA_RECORO; 

NUMBER_VARIABLES := 1; 
while (DATA_RECORD /= null) loop 
if (UHICH_VARIABLE >= 50) then 

RETURN_VARIABLE(NUMBER_VARIABLES) := 

DATA_RECORD.DATA.LAUNCHER_DATA.REAL_VALUE(WHICH_VARIABLE-50); 
-- !!! FIX LAUNCHER_DATA Also see PLOT. ADA 

else 

RETURN VARIABLECNUMBER VARIABLES) := 

DAT A_RECORD . DATA . M I SS I LE_D ATA . REAL_VALUE ( WH I CH_VAR I ABLE ) ; 
end if; 

DATA RECORD := DATA RECORD. NEXT_RECORD; 

NUMBER_VARIABLES := NUMBER_VARIABLES + 1; 
end loop; 

NUMBER_OF_VALUES := NUMBER_VARIABLES - 1; 
end GET__VARIABLE; 
end APPLICATION; 



-- Application Package Subunit 

-- This package contains the application specific functions called by the 
-- general Executive Package. 



separate (APPLICATION) 



procedure LOG_DATA is 
begin 

LOG_RECORD.MISSILE_DATA := MISSILE.LOG_DATA; 

LOG RECORD. LAUNCHER_DATA := LAUNCHER.LOG_DATA; 

LOG“rECORD.TARGET_DATA := TARGETS.LOG_DATA; 

begin 

if not MEMORY FULL then 

if FIRST_DATA_RECORD = null then 
FIRST_DATA_REC0RD := new 
LOGGED_DATA* ( time => environment. time, 

DATA => LOG RECORD, NEXT RECORD => null); 

CURRENT_DATA“ RECORD := FIRST_DATA_RECORD; 

else 

CURRENT_OATA_RECORO.NEXT_RECORO := new 
LOGGED_DATA' (time => envi ronment . t ime, 

DATA => LOG__RECORD, NEXT_RECORD => null); 

CURRENT_DATA_RECORD := CURRENT_DATA_RECORD .NEXT_RECORD; 
end if; 
end if; 
exception 

when STORAGE_ERROR => 

MEMORY_FULL true; 

SYSTEM SPECIFIC.REVERSE_VIDEO_ON; 

system“specific.put_string(20, 41, 

"Data memory full at time : "); 

SYSTEM_SPEC I F I C . PUT_REAL ( 20 , 67, ENVIRONMENT 

system“specific.reverse_video_off; 

end; 

if LOGGING TO DISK then 

REAL_IO.Put(LOG DATA_FILE, ENVIRONMENT .Time, AFT => 3); 

T ext_i o . Put ( LOG“ dATA_F I LE , " , " ) ; 

for I in 1..34 loop 

REAL IO.Put(LOG_DATA_FILE, LOG RECORD .MISSI LE_DATA.REAL_VALUE( I ), 
AFT => 3); 

Tex t_i o . Put ( LOG_DAT A_F I LE , " , " ) ; 
end loopj 
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for I in 1 . . 12 loop 

REAL_IO.Put(LOG_DATA FILE, LOG RECORO.LAUNCHER_DATA.REAL_VALUE( I ), 
AFT => 3); 

T ext_i o . Put ( LOG_DATA_F I L E , 
end loop; 



Text_io.Put(LOG DATA FILE, integer' image(GUIDANCE_PHASE_TYPE'pos( 
LOG_RECORD . M I SSI LE_DATA . GUIDANCE PHASE ))); 

Text_io.Put(LOG_DATA_FILE, 

Text_io.Put(LOG DATA FILE, integer' image(RF_PHASE_TYPEl 'pos( 
LOG_RECORD .MI SSI LE_DATA . RF_PHASE_1 ))); 

Text_io.Put(LOG_DATA_FILE, 

Text_io.Put(LOG_DATA FILE, integer' iniage(RF_PHASE_TYPE2'pos( 
LOG_RECORD. MISSILE DATA.RF PHASE_2))>; 

Text_io.Put(LOG_DATA_FILE, 

Text_io.Put(LOG DATA_FILE, integer' image(IR_PHASE_TYPE'pos( 
LOG~RECORD .MI SSI LE_DATA . I R_PHASE ))); 

T ex t_i o . Put ( LOG_DAT A_F I LE , " , " ) ; 

Text io.Put(LOG_DATA_FILE, integer' iniage(boolean'pos( 

LOG_RECORD . MI SS I LE_DATA . RADOME_OF F))); 

Text_io.Put(LOG_DATA_FILE, 

Text io.Put(LOG DATA_FILE, integer' image(PROPUL_TYPE'pos( 
LOG'rECORD . M I SS I LE_DATA . propul S I ON_PH ASE ) ) ) ; 



Tex t_i o . New_l i ne( LOG_DATA_F I LE ) ; 
end if; 



SYSTEM_SPECIFIC.PUT_REAL( 1,29, REAL(Clock - START_TIME>); 
SYSTEM_SPECIFIC.PUT_REAL( 2,29, ENVIRONMENT. Time); 

SYSTEM_SPECIFIC.PUT REAL( 3,29, 

LOG_RECORD.MISsTlE_DATA.REAL_VALUE( 11)); -- Time to go 
SYSTEM SPECIFIC. PUT_STRING( 5,307 

Rf7mODE(LOG_RECORD.MISSILE_DATA.RF_PHASE_ 2)); -- RF seeker mode 
SYSTEM_SPECIFIC.PUT STRINGC 6,30, 

IR_M0DE(L0G_REC0RD.MISSILE_DATA.IR_PHASE)); -- IR seeker mode 
SYSTEM^SPECI F I C . PUT_REAL ( 7, 29, LOG_RECORD .M I SS I LE_DATA . REAL_VALUE ( U ) ) ; 
-- Az Gimbal Angle 

SYSTEM_SPEC I F I C . PUT_REAL ( 8,29, LOG_RECORD . M I SS I LE_DATA . REAL_VALUE( 13)); 
-- El Giirbal Angle 

SYSTEM_SPECIFIC.PUT_REAL( 9,29, LIMIT(LOG RECORD. MISSILE_DATA. 

REAL_VALUE( 16), 9999. 9999), 4); --"az LOS Rate 
SYSTEM_SPECIFIC.PUT_REAL(10,29, LIMIT(LOG_RECORD. MISSILE DATA. 
REAL_VALUE(15), 9999.9999), 4); -- El LOS Rate 

SYSTEM_SPECI F I C .PUT_STR I NG( 1 2 ,30 , GUI DANCE_M00E ( 

LOG_RECORD. MISSILE DATA.GUIDANCE_PHASE)); -- Guidance mode 
SYSTEM_SPECI F I C . PUT_REAL (13,29, 

LOC_RECORD. MISSILE DATA.REAL_VALUE(18) / G, 4); -- Az Acc Cmd 
SYSTEM_SPECI F I C . PUT_REAL (14,29, 

LOG_RECORD.MISSILE_OATA.REAL_VALUE(19) / G, 4); -- El Acc Cmd 

SYSTEM SPECIFIC. PUT_STRING(16, 30, PROPULSION MOOE( 

~ LOG_RECORD.MISSILE_OATA.PROPULSION PHASE)); -- Propulsion mode 
S YSTEM_SPECI F I C . PUT_REAL ( 1 7, 29, 

LOG_RECORD.MISSILE_OATA.REAL_VALUE(24), 1); -- Thrust 

SYSTEM_SPECI F I C . PUT_REAL ( 19,29, 

LOG RECORD. MISSILE DATA. REAL VALUE(23)); -- Msl Weight 
SYSTEM_SPECIFIC.PUT_REAL(20,29, log record. missile data. real VALUE(26)); 
-- Msl Alpha 

SYSTEM_SPECI F I C . PUT_REAL (2 1 ,29, LOG_RECORD . M I SS I LE_DATA . REAL_VALUE( 27) ) ; 
-- Msl Beta 



SYSTEM_SPECIFIC.PUT_REAL( 1,67, 
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-- Mach 



LOG_RECORD. MISSILE DATA. REAL VALUE(8), 3) 

SYSTEM_SPECIFIC.PUT_REAL( 2,67, “ 

LOG_RECORO.MISsTlE_DATA.REAL_VALUE( 5), 1); -- Velocity 
SYSTEM SPECIF IC.PUT_REAL( 3,67, 

LOG RECORD. MISSILE DATA. REAL VALUE(3), 1); -- Altitude 
SYSTEM_SPECIFIC.PUT_REAL( 4,67, ~ 

L0G_REC0RD.MISSTlE_DATA.REAL_VALUE( 17)); -- Altitude Rate 
S YSTEM_SPEC I F I C . PUT_REAL ( 5,67, LOG_RECORD . M I SS I LE_DAT A . RE AL_VALUE ( 7) ) ; 
-- Pitch Angle 

SYSTEM_SPECIFIC.PUT_REAL( 6,67, L0G_REC0RD.MISSILE_DATA.REAL_VALUE(6)); 
-- Yaw Angle 



SYSTEM_SPECIFIC.PUT_REAL( 7,67, LOG_RECORD. 

MISSILE_DATA.REAL_VALUE(1) / FEET_PER_HMI , 1) 
SYSTEM SPECIFIC. PUT_REAL( 8,67, LOG_RECORD. 

MISSILE_DATA.REAL_VALUE(2) / FEET_PER_NMI , 1) 
SYSTEM SPECIFIC. PUT REAL(10,67, 

LOG_RECORD.MISsTlE DATA.REAL_VALUE(20) / G, 4) 
SYSTEM_SPECI F I C . PUT_REAL (11,67, 

LOG RECORD. MISSILE_DATA.REAL_VALUE(21) / G, 4) 
SYSTEM_SPECIFIC.PUT REAL(12,67, 

LOG RECORD. MI SsTlE DATA.REAL_VALUE(22) / G, 4) 



- Ms I Downrange 
-- Ms I CroSsrange 
-- X Axis Accel 
-- Y Axis Accel 
-- Z Axis Accel 



S YSTEM_SPEC I F I C . PUT_REAL ( 1 5 , 67, LOG_RECORD . 

MISSILE_DATA.REAL_VALUE(9) / FEET_PER_NMI , 1) 



Msl-Tgt Range 



Lnchr-Tgt Range 



end 



SYSTEM_SPECIFIC.PUT REAL(14,67, LOG RECORD. 

MISSILE_DATA.REAL_VALUE(4) / FEET_PER_NMI , 1) 

S YSTEM_SPEcTf I C . PUT_RE AL ( 1 7, 67, 

LOG_RECORD.LAUNCHER_DATA.REAL_VALUE(11), 3); -- Tgt Mach 
S YSTEM_SPEC I F I C . PUT_REAL ( 1 6 , 67, 

LOG RECORD. MISSILE DATA. REAL VALUE(IO), 1); -- Tgt Range Rate 
SYSTEM_SPEC I F I C . PUT_REAL ( 1 8 , 67, 

LOG_RECORD. LAUNCHER DATA. REAL VALUE(6), 1); -- Tgt Altitude 
SYSTEM_SPEC I F I C . PUT_REAL ( 19 , 67, LOG_RECORD . LAUNCHER_DATA . 

REAL VALUE(12), 1); -- Tgt heading ang 

log_data7 



-- User Interface Package Specification 

-- This package contains all the procedures that perform input/output between 
-- the program and the user via the screen and keyboard. 



with MATH; use MATH; 

package USERJNTERFACE is 
procedure MAIN; 
procedure SHOW_TITLE_SCREEN; 
procedure DRAW_RUNTIME_BORDER; 
procedure SETUP_RUNTIME_SCREEN; 
task KEYBOARD HANDLER is 

entry KEy7aVAILABLE(KEY_IN_BUFFER : out boolean); 

entry GET_KEY_WAIT(KEY ; out character); 

entry GET_KEY_NOWAIT(KEY : out character; KEY_VALID : out boolean); 
end KEYBOARD_HANDLER; 

end USER_INTERFACE; 

-- User Interface Package Body 

-- This package contains all the procedures that perform input/output between 
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-- the program and the user via the screen and keyboard. 



with MATH; use MATH; 

with MOOEL_TYPES; use MC®EL_TYPES; 

with SYSTEM_SPEC1FIC; 

with APPLICATION; 

with MISSILE; 

with PLOT; 

with Text_io; 

with REAL_IO; 

package body USER_INTERFACE is 

MESSAGE DISPLAYED : boolean := false; -- Message on at screen bottom 
MENU_START_ROW : constant := 6; 

DATA COLUMN : constant := 42; 

ITEmItEXT_SIZE : constant := 30; 

MENU TEXT_SIZE : constant := 30; 

STRING_SIZE : constant := 60; 

type STRING_ARRAY is arraylpositive range <>) of stringd . .STRING_SIZE); 

TEMP_STRING : stringd .. ITEM_TEXT_SIZE); 

QUIT_STRING : stringd ..MENU_TEXT_SIZE) := "Quit program 

RETURN STRING : stringfl . -MENU_TEXT_SIZE) :="Return to previous menu 

BLANK_STRING : stringd . .STRING_SIZE) : = 

II II . 

I 



type MENU ITEM KIND is (SUBMENU, DATA_ITEM, ACTION); 
type DATAJTEM’KIND is (NONE, TEXT, FL0AT1NG_PT, YES NO, INT GUIDANCE, 
TGT_IR_SIZE, MANEUVER, MANEUVER_START, AIRCRAFT_KIND, LAUNCHER, 
SSJ^ECM, SOJ_ECM); 



type ACTION_TYPE is (LOAD_DATA, SAVE_DATA, START_RUN, GRP1_GRAPH1, 
GRP1_GRAPH2, GRP1_GRAPH3, GRP1 GRAPH4, GRP1_GRAPH5, GRP1_GRAPH6, 
GRpTcRAPH/, GRP2 GRAPHi, GRP2 "gRAPH2, GRP2_GRAPH3, GRP2_GRAPH4, 
GRP2IgRAPH5, GRP3IgRAPH1, GRP3"gRAPH2, GRP3_GRAPH3, GRP4_GRAPH1, 
GRP4_GRAPH2, GRP4 GRAPH3, GRP4"gRAPH4, GRP4 GRAPHS, GRP4_GRAPH6, 
GRP4_GRAPH7); 



type MENU_TYPE; 

type MENU^POINTER is access MENU_TYPE; 

type MENU ITEM TYPE(1TEM_KIND : MENU ITEM KIND; 

DATA_TYPE 7 DATA_ITEM_KIND); 
type MENU_ITEM_POINTER is access MENU_ITEM_TYPE; 

type MENU_TYPE is 
record 

TITLE : stringd. .STRING SIZE); 

FIRST_ITEM i.MENU^ITEM^POINTER; 

ROWS^BETWEEN^ITEMS : positive; -- 1 = no gap, 2 = 1 blank line, etc. 
end record; 



type MENU ITEM_TYPE(ITEM_KIND : MENU_ITEM_KIND; DATA_TYPE : 
DATAJTEM_KIND) is 
record 

TITLE : string(1..MENU_TEXT SIZE); 

NEXT^ITEM : MENU_ITEM_POINTER; 

case ITEM_KIND is 
when SUBMENU => 

NEXT^MENU : MENU POINTER; 
when DATA ITEM => 

PROMPT : stringd.. MENU_TEXT_SIZE); 
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case OATA_TYPE is 
when NONE => 
nul I ; 

when TEXT => 

TEXT_VALUE : stringd . .MENU_TEXT_SIZE); 
when FLOATING_PT => 

REAL VALUE : REAL; 

MAX_VALUE : REAL; 

MIN_VALUE : REAL; 
when YES_NO => 

YES_NO VALUE : YES NO_TYPE; 
when INT GUIDANCE => 

INT GUIDANCE VALUE : INT_GUIDANCE TYPE; 
when TGT_IR_SIZE“=> 

TGT_IR_SIZE_VALUE : TGT_IR_SIZE_TYPE; 
when MANEUVER => 

MANEUVER VALUE : MANEUVER_TYPE; 
when MANEUVER^_START => 

MANEUVER_START_VALUE : MANEUVER_START_TYPE; 
when AIRCRAFT_KIND => 

AIRCRAFT_KIND_VALUE : AIRCRAFT_TYPE; 
when LAUNCHER => ~ 

LAUNCHER VALUE : LAUNCHER_TYPE; 
when SSJ ECM~=> 

SSJ_ECM_VALUE : SSJ_ECM_TYPE; 
when SOJ_ECM => 

SOJ_ECM_VALUE : SOJ_ECM_TYPE; 
end case; 
when ACTION => 

ACTION_KIND : ACTION_TYPE; 
end case; 
end record; 



MAIN_MENU, FILE_MENU, LAUNCHER_MENU, TGT_MENU, GRAPH_MENU : MENU_POINTER; 
GRAPH_GRP1 MENu7 GRAPH_GRP2 MENU, GRAPH_GRP3_MENU, GRAPH_GRP4_MENU, 

TGT1 MENU,~TGT2_MENU, SOJ1 MENU, SOJ2_MENU : MENU_POINTER; 



type MENU_ITEM_ARRAY is array (positive range <>) of MENU_ITEM_POINTER; 



MAIN_MENU_ITEMS : MENU_ITEM_ARRAY(1 . .5); 
FILE_MENU_ITEMS : MENU ITEM ARRAY(1..7); 
LAUNCHER_MENU_ITEMS : MENU TtEM_ARRAY(1 . .6) 
TGT MENU ITEMS : MENU_ITEM~ARRAY(1 . .7); 

MENU ITEM ARRAY(1..15); 
MENU j TEm7aRRAY( 1 . . 7) ; 
MENU_I TEM_ARRAY( 1 . . 13 ) ; 
MENUJTEM^ARRAYd . .13); 

: MENU_ITEM_ARRAY(1..4); 

MENU_ITEM_ARRAY(1. 
MENU ITEM ARRAYd. 



TGT1 MENU ITEMS 
TGTZ^MENUJTEMS 
S0J1_MENU_ITEMS 
S0J2_MENU_ITEMS 
GRAPH_MENU_ITEMS 
GRAPH_GRP1_MENU_ITEMS 
GRAPH GRP2 MENU ITEMS 



GRAPH_GRP3_MENU_I TEMS 
GRAPH GRP4 MENU ITEMS 



MENU_ITEM_ARRAY(1. 
MENU“lTEM ARRAYd. 



. 8 ); 

.5); 

.3); 

.7); 



proceciure SHOW_TITLE_SCREEN is separate; 



procedure GET_TEXT(PROMPT STRING : in string; TEXT_STRING : in out string)is 
TEMP^STRING : string(TEXT_STRING' range); 

INPUT_VALID : boolean := false; 
begin 

for I in TEMP_STRING'range loop 
TEMP_STRING(I) 
end loop; 

SYSTEM_SPECIFIC.PUT_STRING(22, 10, PROMPT_STRING); 

SYSTEM_SPEC I F I C . MOVE_CURSOR ( 22 , DATA_COLUMN ) ; 
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SYSTEM_$PECIFIC.TURN_CURSOR ON; 

SYSTEM_SPEC I F I C , I NPUT_$TR I NG( TEMP_STR I NG ) ; 

SYSTEM SPECIFIC.TURN_CURSOR_OFF; 
SYSTEm“SPECIFIC.PUT_STRING( 22, 10, BLANK_STRING); 
for I in TEMP_STRING' range loop 
if TEMP_STRING(I) /= ' ' then 
INPUT_VALID := true; 
end if; 
end loop; 

if INPUT VALID then 

TEXT“sTRING := TEMP_STRING; 
end if; 
end GET_TEXT; 



procedure GET_REAL< PROMPT STRING : in string; NUMBER : in out REAL) is 
TEMP_NUMBER : REAL; 

EXPONENT : REAL; 

CURRENT : positive; 

SIGN : integer; 
begin 

REAL_IO,Put(TEMP_STRING, NUMBER, AFT=>10,EXP=>0); 

GET_TEXT(PROMPT_STRING, TEMP^STRING) ; 

TEMP_NUMBER := 0,0; 

CURRENT := TEMP_STRING' f i rst; 

SIGN := 1; 

for I in TEMP_STRING' range loop -- Skip tabs and spaces 

if TEMP_STRING(I) /= ' ' and TEMP_STRING( I ) /= Ascii. HT then 
exit; 
end if; 

CURRENT := CURRENT + 1; 
end loop; 

if TEMP_STR I NGC CURRENT) = '•»•' then 
CURRENT := CURRENT + 1; 
end if; 

if TEMP STRING(CURRENT) = then 
SIGN := -1; 

CURRENT := CURRENT + 1; 
end if; 

while TEMP_STRING(CURRENT) >= 'O' and TEMP STRING(CURRENT) <= '9' loop 
TEMP_NUMBER := TEMP^NUMBER * 10.0; 

TEMP^NUMBER := TEMP^NUMBER + REAL< 

character'pos(TEMP_STRING(CURRENT)) - character' pos< 'O' ) ); 
CURRENT := CURRENT + l7 
end loop; 

if TEMP_STRING(CURRENT) = '.' then 
CURRENT := CURRENT -»• 1; 

EXPONENT := 0.1; 

while TEMP_STRING(CURRENT) >= 'O' and TEMP_STRING(CURRENT) <= '9' 
loop 

TEMP_NUMBER := TEMP_NUMBER + REAL( 

character 'pos(TEMP_STRING(CURRENT)) - 
character'pos('O')) * EXPONENT; 

EXPONENT := EXPONENT / 10.0; 

CURRENT := CURRENT + 1; 
end loop; 
end if; 

NUMBER := TEMP_NUMBER * REAL(SIGN); 

exception 

when others => 
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return, 

end GET^REAL; 



function SAVE_DATA_FILE 
return boolean is 

DATA_FILE : Text_io. F i le_type; 

procedure OUTPUT_MENU(MENU : in MENU_POINTER) is 
ITEM : MENU_ITEM_P01NTER := MENU, FIRST_ITEM; 
begin 

while ITEM /= null loop 

if ITEM.ITEM_ICIND = DATA_ITEM then 
case ITEM. DATA TYPE is 
when NONE => 
null; 

when TEXT => 

Text_i o . Put_l i ne( DATA_F I LE , ITEM, TEXT_VALUE ) ; 
when FLOATING PT => 

REAL_IO.Put(DATA_FILE, ITEM. REAL VALUE); 

Text_i o , New_l i ne(DATA_F I LE ) ; 
when YES”nO => 

TextIio.Put_line(DATA_FILE, YES_NO_TYPE • imageC 
ITEM, YES NO_VALUE)); 
when INT_GUIDANCE =>"“ 

Text io,Put_line(DATA FILE, INT GUIDANCE TYPE'imageC 
ITEM,INT_GUIDANCE VALUE)); 
when TGT_IR_SI2E => 

Text_i o. Put_l i ne(DATA_F I LE , TGT_I R_S I ZE_TYPE ' imageC 
I TEM , TGT_I R_S I ZE_VALUE ) ) ; 
when MANEUVER => 

Text_i o.Put_l i ne(DATA_F I LE , MANEUVER^TYPE • imageC 
ITEM. MANEUVER VALUE) ); 
when MANEUVER_START => 

Text_io,Put_l ine(DATA_FILE, 

MANEUVER_START_TYPE ' imageC 

I TEM , MANEUVER_START_VALUE ) ) ; 
when AIRCRAFT^KIND => 

Text_io.Put_lineCDATA FILE, 

AIRCRAFT_TYPE' imageC 

I TEM , A I RCR AFT_K I ND_VALUE ) ) ; 
when LAUNCHER => 

Text io.Put I ineCDATA_FILE, 

LAUNCHER TYPE'imageC 

ITEmTlAUNCHER VALUE)); 
when SSJ_ECM => 

Text_io.Put_l ineCDATA_FILE, 

SS J_ECM_TYPE • imageC I TEM . SS J_ECM_VALUE ) ) ; 
when SOJ__ECM => 

Text“i o , Put_l i neC DATA_F I LE , 

SOJ_ECM_T YPE • i mageC I TEM . SOJ_ECM_VALUE ) ) ; 

end case; 

elsif ITEM.ITEM_KIND = SUBMENU then 
OUTPUT^MENUC ITEM.NEXT^MENU); 
end if; 

ITEM := ITEM.NEXT^ITEM; 
end loop; 
end OUTPUT_MENU; 

begin 

Text io.CreateCDATA FILE, Text io.Out file, 

F I LE_MENU_I TEMSC 1 ) . TEXT_VALUE ) ; 

Text_io.Put_lineCDATA_FILE, MISSILE. ID_STRING); 

OUT PUT_MENU CMA I N_MENU ) ; 

Tex t J 0 . C I oseC DATA^F I LE ) ; 
return true; 
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except i on 

when others => 

SYSTEM_SPECIFIC.PUT STRING(22, 10, "ERROR during file save"); 
MESSAGE_D I SPLAYED := true; 
if Text_io. Is_open(DATA_FI LE) then 
Text_io,Close(DATA_FILE); 
end if; 
return false; 
end SAVE_DATA_FILE; 



function LOAD_DATA_FILE 
return boolean is 

DATA_FILE : Text_io. Fi le_type; 

ID_MISMATCH : exception; 

procedure INPUT_MENU(MENU : in MENU_POINTER) is 
ITEM : MENU ITEM_POINTER := MENU-FIRST ITEM; 

TEMP_LINE :"string(1 -.MENU_TEXT_SIZE);" 

LAST : natural; 
begin 

while ITEM /• null loop 

if ITEM.ITEM_ICIND = DATAJTEM then 
case ITEM. DAT A^TYPE Ts 
when NONE => 
null; 

when TEXT => 

Text_io.Get_line(DATA_FILE, I TEM.TEXT_VALUE, LAST); 
Text_io. Ski p_l i ne(DATA_F I LE ) ; 
when FLOATING_PT => 

REAL_I 0 . Get (DATA_F I LE , ITEM. REAL_VALUE ) ; 
Text_io.Skip_line(DATA_FILE); 
when YES_N0 => 

Text_io.Get_line(DATA FILE, TEMP_LINE, LAST); 
ITEM.YES_NO_VALUE ;= 

YES_N0_TYPE ' va lue( TEMP L I NE ( 1 . . LAST ) ) ; 
when INT_GUIDANCE => 

Text_io.Get_line(DATA_FILE, TEMP_LINE, LAST); 

ITEM. I NT GUIDANCE_VALUE : = 

INT GUIDANCE_TYPE'value(TEMP_LINE(1..LAST)); 
when TGT_IR_SIZE => 

Text io.Get_line(DATA_FILE, TEMP_LINE, LAST); 
ITEmTtGT_IR_SIZE_VALUE : = 

TGT_I R_S I ZE"t YPE ' va lue( TEMP_L I NE ( 1 . . LAST ) ) ; 
when MANEUVER => 

Text_io.GetJine(DATA FILE, TEMP_LINE, LAST); 
ITEM.MANEUVER_VALUE := 

MANEUVER_TYPE ' va I ue( TEMP_L I NE ( 1 . . LAST ) ) ; 
when MANEUVER_START => 

Text io.Get_line(OATA FILE, TEMP_LINE, LAST); 

itemTmaneuver_start_value := 

MANEUVER START TYPE ' value(TEMP LINE( 1 . .LAST) ); 
when AIRCRAFT_KIND”=> 

Text io.Get_line(DATA_FILE, TEMP_LINE, LAST); 

itemTaircraft_kind_value := 

AI RCRAFT TYPE ' va I ue( TEMP_L I NE ( 1 . . LAST ) ) ; 
when LAUNCHER => 

Text_io.Get_line(DATA_FILE, TEMP LINE, LAST); 
ITEM.LAUNCHER^VALUE := 

LAUNCHER_T YPEWa lue( TEMP_L I NE ( 1 . . LAST ) ) ; 
when SSJ_ECM => 

Text_io.GetJine(DATA_FILE, TEMP LINE, LAST); 
ITEM.SSJ_ECM_VALUE := 

SS J_ECM J YPE * va lue( TEMP^L I NE ( 1 . . LAST ) ) ; 
when SOJ_ECM => 

Text~io.GetJine(DATA FILE, TEMP_LINE, LAST); 

item7soj_ecm_value :=~ 

SO J_ECM_T YPE ' va I ue( TEMP_L I NE( 1 . . LAST ) ) ; 
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end case; 

elsif ITEM,ITEM_KIND = SUBMENU then 
I NPUT_MENU( ITEM, NEXT^MENU ) ; 
end if; 

ITEM := ITEM.NEXTJTEM; 
end loop; 
end INPUT_MENU; 

begin 

Text_io,Open(DATA_FILE, Text_io. In_f i le, FILE_MENU_ITEMS(1).TEXT_VALUE); 

Text_io,Get(DATA_FILE, TEMP_STRING); 

Text_io.$kip_line(DATA_FILE); 

for I in MISSILE, ID_STRING' range loop 

if MISSILE, ID_STRING(I) /= TEMP_STRING( I ) then 
raise ID_MISMATCH; 
end if; 
end loop; 

INPUT_MENU(MAIN_MENU); 

Text_i o , C I ose(DATA_F I LE ) ; 
return true; 

exception 

when others => 

SYSTEM_SPECIFIC,PUT_STRING(22, 10, "ERROR during file load"); 
MESSAGE_D I SPLAYED := true; 
if Text_io,Is open(DATA_FILE) then 
Text_i o, cTose(DATA_F I LE ) ; 
end if; 
return false; 
end LOAD_DATA_FILE; 



procedure START_RUN is 

SETUP_VALUES : SETUP_VALUES_TYPE; 

TEMP_REAL : REAL; -- Needed for Meridian V4,0 bug 
begin 

File operations parameters 

SETUP_VALUES,OUTPUT_FILE := FILE_MENU_ITEMS(4) ,TEXT_VALUE; 
SETUP_VALUES,LOG DATA := FILE MENU ITEMS(5),YES_NO_VALUE; 
$ETUP_VALUES,FRAME_TIME := FIIe_MENU_ITEM$(6) ,REAL_VALUE; 

SETUP_VALUES , L0G_I NTERVAL : = I NTEGER ( F I LE_MENU_I TEMS(7) , REAL_VALUE ) ; 

Launch aircraft parameters: 

SETUP_VALUES,INT_TYPE^IC:=LAUNCHER_MENU_ITEMS(1).AIRCRAFT_KIND_VALUE; 
SETUP_VALUES , LAUiiCH_TYPE : = LAUNCHER_MENU_I TEMS( 2 ) , LAUNCHER_VALUE ; 
TEMP_.REAL := LAUNCHER_MENU_ITEMS(3),REAL_VALUE; 
SETUP_VALUES,INT_ALTITUDE_IC := TEMP REAL; 

SETUP VALUES, INT MACH IC := LAUNCHER~MENU_ITEMS(4),REAL VALUE; 
SETUP“vALUES,INT“lEAdIaNGLE IC := LAUNCHER_MENU_ITEMS(5),REAL_VALUE; 
SETUP“VALUES,INT_GUIDANCE := LAUNCHER_MENU_ITEMS(6). INT_GUIDANCE_VALUE; 

Target parameters: 

SETUP_VALUES.TGT_TWO IC:=TGT MENU ITEMS(2),YES NO_VALUE; 

$E TUP_VALUE$ . SOJ ONE“i C : =TGT“mENu“i TEMS(4 ) , YEs“nO_VALUE ; 

SETUP_VALUES , SO j“tWOJ C : =TGT MENu“l TEM$(6) , YES“nO_VALUE ; 

TEMP_REAL := TGT1_MENU_ITEMS(1),REAL_VALUE; 

SETUP VALUES, TGT^ALT I TUDE_IC(1) := 1000,0*TEMP_REAL; 

TEMP REAL := TGT2 MENU ITEMS(1 ).REAL VALUE; 
SETUP_VALUES,TGT_ALTITUDE_IC(2) := 1000,0*TEMP REAL; 

TEMP_REAL := SOJ1_MENU_ITEMS(1 ) ,REAL VALUE; 
SETUP_VALUES,TGT_ALTITUOE_IC(3) := 1000,0*TEMP_REAL; 

TEMP REAL := SOJ2 MENU ITEMS(1),REAL_VALUE; 
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SETUP VALUES. TGT_ALT I TUOE IC(4) := 1000.0*TEMP REAL; 
SETUP“VALUES.S0J_ANGLE IC?1):=SOJl MENU ITEMS(3).REAL_VALUE; 

SETUP VALUES. SOJ_ANGLEjC(2):=SOJ2“MENUjTEMS(3).REAL_VALUE; 
SETUP”VALUES.TGT_MACH_IC := TGT1_MENU_ITEMS(2).REAL_VALUE; 
SETUP_VALUES.TGT ASPECT_IC := TGT1_MEHU_ITEMS(3).REAL_VALUE; 
SETUP_VALUES.TGT~RANGE_IC(1) := FEET_PER_NMI* 

TGT 1_MENU_I TEMS<4 ) . REAL_VALUE ; 

SETUP_VALUES.TGT_RANGE_IC(2) := TGT2_MENU_1TEMS(2).REAL_VALUE; 
SETUP_VALUES.TGT_RANGE_IC(3) := FEET_PER_NH1* 
S0J1_HENU_ITEMS(2).REAL_VALUE; 

SETUP_VALUES.TGT_RANGE_IC(4) ;= FEET_PER_NM1* 
SOJ2_MENU_ITEMS(2).REAL_VALUE; 

SETUP_VALUES.TGT2_ANGLE_IC:=TGT2_MEHU_ITEMS(3).REAL_VALUE; 

TEMP_REAL :=TGT 1_MENU_I TEMS( 1 1 ) .REAL_VALUE; 

SETUP_VALUES.TGT_BU1LDUP TIME IC :=TEMP_REAL; 

SETUP VALUES. TGT_RCS_IC(T) :=“10.76*TGT1_MENU_ITEMS(5).REAL_VALUE; 
SETUP”VALUES.TGT RCS_1C(2) := 10.76*TGT2 MENU 1TEMS(4) .REAL_VALUE; 
SETUP“VALUES . TGT~ECM_TECH_I C( 1 ) : =TGT 1_MENU 1 TEMS( 14). SS J_ECM_VALUE ; 
SETUP_VALUES.TGT“ECM_TECH_IC(2):=TGT2_MENU“ITEMS(6).SSJ_ECM_VALUE; 
SETUP_VALUES.SOj2eCM_TECH_IC( 1):=SOJ1_MENUJTEMS(4).SOJ_ECM_VALUE; 
SETUP VALUES. SOJ_ECM TECH_IC(2):=SOJ2_MENU_ITEMS(4).SOJ_ECM_VALUE; 
SETUP^VALUES . TGT_ECM>OWER_I C( 1 ) : =TGT 1_MENU_1 TEMS( 1 5 ) . REAL_VALUE ; 
SETUP_VALUES.TGT_ECM_POWER_IC(2):=TGT2 MENU 1TEMS(7).REAL VALUE; 
SETUP_VALUES.TGT_ECM_POWER_IC(3):=SOJl“MENujTEMS(5).REAL3vALUE; 
SETUP”vALUES.TGt2eCmIpOWERJC( 4):=SOJ2 MENUJTEMS(5).REAL_VALUE; 
SETUP“VALUES.TGT1_1R_SI2E := TGT1_MENU“lTEMS(6).TGT_IR_SI2E_VALUE; 
SETUP_VALUES.TGT2_IR_SI2E := TGT2_MENU_ITEMS(5).TGT_IR_SI2E_VALUE; 
SETUP_VALUES.MANEUVER_KIND := TGT1_MENU_1TEMS(7) .MANEUVER_VALUE; 
SETUP~VALUES.TGT TURN~G_IC := TGTl MENU~ITEMS(8).REAL VALUE; 
SETUP“VALUES.TURN_ON_PARAMETER “ 

TGT 1 _MENU_I TEMS(9) . MANEUVER_START_VALUE ; 

SETUP_VALUES.TGT TURNON_VALUE_IC := TGT1_MENU_1TEMS(10).REAL_VALUE; 
SETUP_VALUES.TGT~TURN_ANG_IC := TGT1_MENU_1TEMS(12).REAL_VALUE; 
SETUP_VALUES.TGT_WEAVE PER IC ;= TGTl MENU_1TEMS(13).REAL_VALUE; 
APPL I CAT I ON . S I MUL AT 1 ON“ma I N ( SE TUP_VALUE S ) ; 
end START RUN; 



function DISPLAY_MENU(MENU : MENU_POINTER; ITEM_NUM : integer) 
return integer is 

ITEM : MENU_ITEM_POINTER; 

ROU : integer; 

NUM_ITEMS ; integer; 
begin 

SYSTEM SPECIFIC. CLEAR SCREEN; 

SYSTEm“sPECI FIC.DRAW_BOX; 

SYSTEM_SPECIFIC.PUT_STRING( 2, 10, MENU. TITLE); 
if MENU = MAIN MENU then 

SYSTEM_SPECIFIC.PUT_STRING(22, 5, "Use the up and down " & 
"arrow keys to move the cursor and then press ENTER"); 

end if; 

ITEM := MENU.FIRST_ITEM; 

ROW := MENU_START ROW; 

NUM_ITEMS := 0; 
while ITEM /= null loop 

if NUM_ITEMS = ITEM_NUM then 

SYiTEM_SPECIFIC.REVERSE_VIOEO_ON; 
end if; 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, ITEM. TITLE); 

if NUM_ITEMS = ITEM_NUM then 

SYSTEM_SPECI F I cTrEVERSE_V I DEO_OF F ; 
end if; 
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if ITEM.ITEM_ICIND = DATAJTEM then 
case ITEM,DATA_TYPE Ts 
when NONE => 
nul 1; 

when TEXT => 

SYSTEM SPECIFIC. PUT_STRING( ROW, DATA COLUMN, 

ITEM. TEXT VALUE); 
when FLOATING_PT => 

SYSTEM SPECIF I C.PUT_REAL( ROW, DATA_COLUMN, 
ITEM.REAL^VALUE); 
when YES_NO => 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA_COLUMN, 
YES_NO_TYPE • i mage( I TEM . YES_NO_VALUE ) ) ; 
when INT_GUIDANCE => 

SYSTEM SPECIFIC. PUT STRING( ROW, DATA COLUMN, 

I NT GUI D AN CE_T YPE ' 1 mage( I TEM . I N T_GU I D ANCE_VALUE ) ) ; 
when TGT_Ir“sIZE => 

SYSTEM SPECIFIC.PUT_STRING( ROW, DATA_COLUMN, 

TGT_I R_S I ZE_TYPE ' i mage( I TEM . TGT_I R_SI ZE_VALUE ) ) ; 
when MANEUVER => 

SYSTEM SPECIFIC. PUT STRING( ROW, DATA COLUMN, 
MANEUVER_TYPE * linageC I TEM . MANEUVER^VALUE ) ) ; 
when MANEUVER_START => 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA_COLUMN, 
MANEUVER_START_TYPE ' image( 

I TEM . MANEUVER_START_VALUE ) ) ; 
when AIRCRAFT_KIND => 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA COLUMN, 
AIRCRAFT_TYPE*image( 

ITEM.AIRCRAFT_KIND VALUE)); 
when LAUNCHER => 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA^COLUMN, 
LAUNCHER_TYPE*image( 

ITEM.LAUNCHER_VALUE)); 
when SSJ_ECM => 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA_COLUMN, 

SSJ ECM TYPE*image(ITEM.SSJ ECM VALUE)); 
when SOJ_ECM =>" 

SYSTEM_SPECIFIC.PUT_STRING( ROW, DATA^COLUMN, 

SO J_ECM_TYPE • 1 mage( I TEM . SOJ_ECM_VALUE ) ) ; 

end case; 
end if; 

ROW := ROW + MENU.ROWS_BETWEEN_ITEMS; 

ITEM := ITEM. NEXT ITEmJ 
NUM_ITEMS := NUMJTEMS + 1; 
end loop; 

if MENU = MAIN^MENU then 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, QUIT_STRING); 

else 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, RETURN_STRING); 
end if; 

return NUM_ITEMS; 
end DISPLAY^MENU; 



procedure MANAGE MENU(MENU : MENU_POINTER) is 
ITEM : MENU_TtEM_POINTER; 

ROW : integer; 

ITEM_NUM : integer := 0; 

NUM_ITEMS : integer; 

COMMAND : SYSTEM_SPECIFIC.MENU_COMMAND; 
STATUS^OK : boolean; 
begin 

NUM_ITEMS := DISPLAY_MENU(MENU, ITEM_NUM); 
ROW := MENU_START_ROW; 
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ITEM := MENU.FIRST^ITEM; 
loop 

COMMAND := SYSTEM_SPECI FIC.GET_MENU_COMMAND; 

^f MESSAGE_D I SPLAYED then 

SYSTEM_SPECIFIC.PUT_STRING(22, 10, BLANK^STRING); 
MESSAGE^Dl SPLAYED := false; 
end if; 



case COMMAND is 

when SYSTEM SPECI FIC.UP^ARROW => 
if ITEM“nUM = NUM_ITEMS then 
if MENU = MAIN_MENU then 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, QUIT_STR ING); 

else 



SYSTEM_SPECIFIC,PUT_STRING( ROW, 10, RETURN^STRING) 
end if; 

ROW := ROW - MENU.ROWS_BETWEEN_ITEMS; 

ITEM_NUM := ITEM_NUM - 1; 

ITEM := MENU.FIRST_ITEM; 
for I in 0,,ITEM_NUM-1 loop 
ITEM := ITEM,NEXT_ITEM; 
end loop; 

SYSTEM_SPEC I F I C . REVERSE_V I DEO__ON ; 
SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, ITEM. TITLE); 
SYSTEM_SPEC I F I C . REVERSE^V I DEO_OF F ; 
elsif ITEM_NUM = 0 then 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, ITEM. TITLE); 

ROW := MENU_START_ROW + NUM ITEMS * 
MENU.ROWS_BETWEEN_ITEMS; 

ITEM_NUM := NUM ITEMS; 

SYSTEM_SPEC I F I cTrEVERSE_V I DEO_ON ; 
if MENU = MAIN_MENU then 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, QUIT_STRING); 

else 



SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, RETURN_STRING) 
end if; 

SYSTEM^SPEC I F I C . REVERSE^V I DEO_OF F ; 

else 



SYSTEM_SPECIFIC.PUT STRING( ROW, 10, ITEM.TITLE); 
ROW ROW - MENU. ROWS BETWEEN ITEMS; 

ITEM_NUM := ITEM_NUM -'l; 

ITEM“:= menu. first ITEM; 
for I in O..ITEM_NUM-1 loop 
ITEM := ITEM.NEXT_ITEM; 
end loop; 

SYSTEM_SPECIFIC.REVERSE_VIDEO ON; 
SYSTEM"sPECIFIC.PUT_STRING( row, 10, ITEM.TITLE); 
SYSTEM^SPECIFIC.REVERSE_VIDEO_OFF; 
end if; 



when SYSTEM_SPECIFIC.DOWN ARROW => 
if ITEM_NUM < NUM_ITEMS-1 then 

SYSTEM SPECIFIC. PUT STRING( ROW, 10, ITEM.TITLE); 

ROW :="rOW + MENU. ROWS BETWEEN_ITEMS; 

ITEM NUM := ITEM_NUM +~1; 

ITEM":= ITEM. next ITEM; 

S YSTEM^SPEC I F I C . RE VERSE_V I DEO_ON ; 
SYSTEM~SPECIFIC.PUT_STRING( ROW, 10, ITEM.TITLE); 
SYSTEM'SPEC I F I C . RE VERSE_V I DEO_OF F ; 
elsif ITEM'nUM = NUM ITEMS-1 then 

SYSTEM"sPECIFIC.PUT_STRING( row, 10, ITEM.TITLE); 

ROW :="rOW + MENU.ROWS_BETWEEN ITEMS; 

ITEM_NUM := ITEM_NUM + 1; 

SYSTEM SPECIF I C. REVERSE_VIDEO_ON ; 
if MENU - MAIN MENU then 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, QUIT_STRING); 

else 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, RETURN_STRING) 
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end if; 

SYSTEM^SPECIFIC. REVERSE VIDEO_OFF; 
else -- ITEM^NUM = NUM^ITEMS 
if MENU = MAIN_MENU then 

SYSTEM_SPECIFIC,PUT_STRING( ROW, 10, QUIT_STRING); 

else 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 10, RETURN_STRING); 
end if; 

ROW := MENU_START ROW; 

ITEM := MENU,FIRST_ITEM; 

ITEM_NUM ;= 0; 

SYSTEM SPECIFIC,REVERSE_VIDEO ON; 
SYSTEM”SPECIFIC.PUT_STRING( r5w, 10, ITEM. TITLE); 
SYSTEM_SPEClFIC.REVERSE_VIDEO_OFF; 
end if; 

when SYSTEM_SPECIFIC.ENTER_KEY => 
if ITEM_NUM = NUM^ITEMS then 
if MENU = MA1N_MENU then 

SYSTEM_SPEC I F I C . QU I T_PROGRAM; 

else 

return; 
end if; 

else 

case ITEM. ITEM KIND is 
when SUBMENU => 

MANAGE_MENU( I TEM . NEXT_MENU ) ; 

NUM_1TEMS := DISPLAY_MENU(MENU, ITEM_NUM); 
when DATA_ITEM => 

case ITEM.DATA^TYPE is 
when NONE => 
nul 1; 

when TEXT => 

GET_TEXT( I TEM. PROMPT, ITEM.TEXT_VALUE); 
SYSTEM_SPEC I F I C . PUT_STR I NG( ROW , 

DATA COLUMN, ITEM.TEXT_VALUE); 
when FLOATING_PT => 

GET_REAL ( I TEM . PROMPT , ITEM. REAL_VALUE ) ; 
SYSTEM_SPECIFIC.PUT_REAL( ROW, 

DATA COLUMN, ITEM.REAL_VALUE); 
when YES_NO => 

if ITEM.YES_NO_VALUE /= YES_NO_TYPE U ast 
then 

ITEM.YES_NO_VALUE := 

YES_NO TYPE'succ( 

ITEM.YES_NO_VALUE); 

else 

ITEM.YES_NO VALUE := 
YES_NO_TYPE”first; 
end if; 

SYSTEM_SPECIFIC.PUT STRING( ROW, 
DATA_COLUMN, BLANK_STRING( 
1..YES_NO_TYPE 'width) ); 

SYSTEM SPECIFIC. PUT STRING( ROW, 

DATA COLUMN, YES NO_TYPE ' imageC 
TtEM.YES_NO_VALUE)); 
when INT_GUIDANCE => 

if ITEM.INT GUIDANCE_VALUE /= 

INT GUIDANCE_TYPE'last then 
“iTEM.INT GUIDANCE_VALUE := 

INT GUIDANCE_TYPE'succ( 

”l TEM . I N T_GU I DANCE_VALUE ) ; 

else 

ITEM.1NT_GUIDANCE_VALUE := 

I NT_GU I DANCE^TYPE ' f i rst ; 
end if; 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 

DATA COLUMN, BLANK_STRING( 

T..INT_GUIDANCE_TYPE 'width)); 
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SYSTEM^SPECIFIC.PUT STRING( ROW, 
DATA_COLUMN, 

INT GUIOANCE_TYPE'image< 

"iTEM.INT^GUIOANCE^VALUE)); 
when TGT_I RESIZE => " 

if ITEM.TGT_IR_SIZE_VALUE /= 
TGT_IR_$IZE_TYPE' last then 
ITEM.TGT_IR_SIZE_VALUE := 

TGT_ I R_S I ZE_T Y PE ' sue c ( 

I TEM . TGT_ I R_S I ZE_VALUE ) ; 

else 

ITEM.TGT_1R_SIZE VALUE := 

TGT_I R_S I ZE^TYPE" f i rst ; 
end if; 

SYSTEM SPECIFIC. PUT_STRING( ROW, 
DATA_COLUMN, BLANK_STRI NG< 

1.. TGT IR_SIZE_TYPE 'width) ); 
SYSTEM_SPECIFIC.PUT STRING( ROW, 

OATA_COLUMN, 

TGT_IR SIZE_TYPE'image( 

I TEM . TGT_I R_S I ZE_VALUE ) ) ; 
when MANEUVER => 

if ITEM.MANEUVER_VALUE /= 

MANEUVER TYPE* last then 

itemTmaneuver_value := 

MANEUVER_TYPE'succ( 

ITEM.MANEUVER_VALUE); 

else 

ITEM.MANEUVER_VALUE := 
MANEUVER_TYPE' first ; 
end if; 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 
DATA_COLUMN, BLANK_STRING( 

1 . . MAN EUVE R_T YPE 'width)); 
SYSTEM_SPECIFIC.PUT_STRING( ROW, 

DATA^COLUMN , MANEUVER_TYPE ' image( 

Item . maneuver_value ) ) ; 

when MANEUVER^START => 

if ITEM.MANEUVER_START_VALUE /= 
MANEUVER_START_TYPE' last then 
ITEM.MANEUVER_START VALUE := 
MANEUVER_START TYPE"succ( 

I TEM . MANEUVER_START_VALUE ) ; 

else 

ITEM.MANEUVER_START VALUE := 
MANEUVER^START^T YPE“ f i rs t ; 
end if; 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 
DATA^COLUMN, BLANK_STRING( 

T . . MANEUVER_START_T YPE 'width)) 
SYSTEM^SPECIFIC.PUT STRINGC ROW, 
DATA^COLUMN, 

MANEUVER START TYPE'image( 

ITEmTmANEUVER START_VALUE)); 
when AIRCRAFT KINO => 

if item.aTrcraft_kino_value /= 

AIRCRAFT_TYPE'last then 

ITEM. AIRCRAFT KINO VALUE := 
AIRCRAFT_TYPE“succ( 

I TEM . A I RCRAFT^K I NO^VALUE ) ; 

else 

ITEM.AIRCRAFT_KINO_VALUE := 
AIRCRAFT_TYPE' first; 
end if; 

SYSTEM_SPECIFIC.PUT_STRING( ROW, 
OATA_COLUMN, BLANK^STR ING( 

1.. AIRCRAFT TYPE 'width)); 

system_specific.put3string( row, 

OATA_COLUMN, 
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AIRCRAFT TYPE'fmageC 

I T EmTa I RCR A FT_K I NO^VALUE ) ) ; 
when LAUNCHER => 

if ITEM.LAUNCHER_VALUE /= 
LAUNCHER_TYPE'last then 
I TEH. LAUNCHER VALUE : = 

launcher_type“succ( 

ITEM.LAUNCHER_VALUE); 

else 

I TEH. LAUNCHER VALUE 
LAUNCHER_TYPE“ffrst; 
end if; 

SYSTEH_SPECIFIC.PUT_STRING( ROW, 
DATA_COLUHN, BLANK_STRING( 

1.. LAUNCHER TYPE 'width)); 

systeh_specific.put’string( row, 

DATA_COLUHN, 

LAUNCHER TYPE'imageC 

ITEhTlAUNCHER VALUE)); 
when SSJ ECH => 

if I TEH. SSJ ECH VALUE /= 
SSJ_ECH_TYPE'last then 
"iTEH.SSJ ECH^VALUE ;= 
SSJ_ECH_TYPE"succ( 

ITEH.SSJ_ECH_VALUE); 

else 

ITEH.SSJ_ECH_VALUE ;= 
SSJ_ECH_TYPE' first; 
end if; 

SYSTEH_SPECIFIC.PUT_STRING( ROW, 
DATA_COLUHN, BLANK__STRING( 

1 . . 55J_ECH_TYPE 'width)); 
SYSTEH_SPECIFIC.PUT_STRING( ROW, 

DATA_COLUHN, 

SSJ ECH TYPE'image( 

“l TEH . SS J_ECH_VALUE ) ) ; 
when SOJ_ECH => 

if ITEH.SOJ_ECH_VALUE /= 

SOJ ECH TYPE 'last then 
"lTEH.SOJ_ECH_VALUE := 

SOJ_ECH TYPe“succ( 

ITEH.SOJ_ECH_VALUE); 

else 

I TEH. SOJ ECH VALUE : = 
SOJ_ECH_TYPE"first; 
end if; 

SYSTEH_SPECIFIC.PUT STRING( ROW, 
DATA_COLUHN, BLANK_STRING( 

1 . . 50J_ECH_TYPE ’width) ); 
SYSTEH_SPECIFIC.PUT_STRING( ROW, 

DATA COLUHN, 

SOJ_ECH_TYPE'image( 

I TEH . SOJ^ECH^VALUE ) ) ; 

end case; 
when ACTION => 

case ITEH.ACTION_KIND is 
when LOAD DATA => 

STATUS_OK := LOAD_DATA_FILE; 
if STATUS OK then" 

NUH_ITEHS := DISPLAY_HENU(HENU, 
ITEH_NUH); 

SYSTEH_SPEC I F I C . PUT_STR I NG( 22 , 1 0 
"File loaded successfully"); 
HESSAGE_0 I SPLAYED := true; 
end if; 

when SAVE_DATA => 

STATUS OK := SAVE DATA_FILE; 
if STATUS_OK then” 

SYSTEH_SPECIFIC.PUT STRING(22, 10 
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"File saved successfully"); 
MESSAGE^O I SPLAYED := true; 
end if; 

when START RUN => 

START_RUN; 

NUM_ITEMS := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH1 => -- Elev. View of Traj 
PL0T.D0_GRAPH(21); 

NUM_ITEMS := DISPLAY MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH2 => — Plan View of Traj 
PLOT.DO_GRAPH(22); 

NUM_ITEMS := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH3 => -- Msl*Tgt Range Rate 
PL0T.D0_GRAPH(7); 

NUM_ITEMS := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH4 => -- Msl-Tgt Range 
PLOT. DO GRAPH(6); 

NUM_ITEMS“:= DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH5 => -- LOS Angle Rates 
PLOT.DO_GRAPH(10); 

NUM^ITEMS := DISPLAY_MENU(MENU, 
”lTEM_NUM); 

when GRP1_GRAPH6 => -- Tgt Heading Angle 
PLOT.DO_GRAPH(25); 

NUM_ITEMS":= DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP1_GRAPH7 => -- Launch A/C-Tgt Range 
PL0T.D0_GRAPH(1); 

NUM_ITEMS DISPLAY_MENU(MENU, 

ITEM NUM); 

when GRP2_GRAPH1 => -- Msl. Mach 
PLOT. DO GRAPH(5); 

NUM_ITEMS“ := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP2_GRAPH2 => -- Msl. Velocity 
PLOf.DO GRAPH(2); 

NUM_ITEMS’ := DISPLAY MENU(MENU, 

ITEM NUM); 

when GRP2_GRAPH3 => -- Msl. Alt. Rate 
PLOT. DO GRAPH(H); 

NUM_ITEMS" := DISPLAY MENUCMENU, 
ITEM_NUM); 

when GRP2_GRAPH4 => -- Msl. Pitch Angle 
PLOf.DO GRAPH(4); 

NUM_ITEMS” := DISPLAY_MENU(MENU, 

ITEM NUM); 

when GRP2_GRAPH5 => -- Msl. Yaw Angle 
PLOT. DO GRAPHC3); 

NUMJTEMS" := DISPLAY MENUCMENU, 
ITEM_NUM); 

when GRP3_GRAPH1 => — Msl. Thrust 
PL0f.D0_GRAPH(16); 

NUM ITEMS := DISPLAY_MENU(MENU, 

“item NUM); 

when GRP3_GRAPH2 => -- Msl. Fuel Mass 
PLOT. DO GRAPHC14); 

NUM items” := DISPLAY_MENU(MENU, 
”lTEM_NUM); 

when GRP3_GRAPH3 => -- Msl. Fuel Rate 
PL0T.D0_GRAPH(17); 

NUMJTEMS := DISPLAY MENUCMENU, 
ITEM_NUM); 

when GRP4_GRAPH1 => -- Msl. Acc. Cmds. 
PL0T.D0_GRAPHC12); 
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NUM_ITEMS := DISPLAY MENU(MENU, 
ITEM^NUM); 

when GRP4_GRAPH2 => -- Msl. Ach. Acc. 
PL0T.D0_GRAPH(13); 

NUM items" := DISPLAY MENU(MENU, 
"lTEM_NUM); 

when GRP4_GRAPH3 => -- Msl. Alpha 
PLOT. DO GRAPH(18); 

NUM items" := DISPLAY MENU(MENU, 
"lTEM_NUM); 

when GRP4_GRAPH4 => -- Msl. Weight 
PLOT. DO GRAPHdS); 

NUM_ITEMS" := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP4_GRAPH5 => -- Msl. Skr. Angles 
PL0T.D0_GRAPH(9); 

NUM ITEMS := DISPLAY MENU(MENU, 
"lTEM_NUM); 

when GRP4_GRAPH6 => -- Msl. RF SNR 
PL0T.D0_GRAPH(19); 

NUM_ITEMS := DISPLAY_MENU(MENU, 
ITEM_NUM); 

when GRP4_GRAPH7 => -- Msl. Drag Coef. 
PLOT.DO,GRAPH(20); 

NUM_ITEMS" := DISPLAY_MENU(MENU, 
ITEM^NUM); 

end case; 
end case; 
end if; 

when others => 
nul 1; 
end case; 
end loop; 
end MANAGE.MENU; 



procedure MAIN is 
begin 

MANAGE_ME NU ( MA I N_MENU ) ; 
end MAIN; 



procedure DRAW_RUNTIME_BORDER is 
begin 

SYSTEM_SPECIFIC.DRAW_BOX; 

SYSTEM_SPECIFIC. REVERSE VIDEO ON; 

SYSTEM SPECIFIC. PUT_STR7nG( 07 19, MISSILE. RUNTIME TITLE); 
SYSTEM^SPECIFIC.PUT STRING(24, 25," Press space bar to pause run »); 
SYSTEM_SPECIFIC.REVERSE_VIDEO_OFF; 
end DRAW_RUNTIME_BORDER; 



procedure SETUP_RUNTIME_SCREEN is separate; 



procedure SETUP_MENU_DATA is separate; 



task body KEYBOARD_HANDLER is separate; 



begin 

SETUP_MENU DATA; 
end USER_INTERFACE; 



*- User Interface Package Subunit 

-- This subunit contains all the data describing the user interface. 
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separate (USER_INTERFACE) 



procedure SETUP_MENU_DATA is 
begin 

-- Graph Group 4 Main Menu 

GRAPH_GRP4_MENU_ITEMS(7) := new MENU_ITEM_TYPE ' ( ITEM_KIN0 => ACTION, 
TITLE => "Msl Drag Coefficient ", 

DATA_TYPE => NONE, NEXT_ITEM => null, ACTION_KIND => GRP4_GRAPH7); 

GRAPH_GRP4_MENU ITEMS(6) := new MENU_ITEM_TYPE' ( ITEM KIND => ACTION, 
TITLE => "Msl RF S/N Ratio ", 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP4_MENU_ITEMS(7), 
ACTION_KIND => GRP4_GRAPH6); 

GRAPH_GRP4_MENU_ITEMS(5) := new MENU_ITEM_TYPE' (ITEM_KIND => ACTION, 
TITLE => "Msl Seeker Gimbal Angles ", 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP4_MENU ITEMS(6), 
ACTION_KIND => GRP4_GRAPH5); 

GRAPH_GRP4_MENU_ITEMS(4) := new MENU_ITEM_TYPE' ( ITEM_KIND => ACTION, 
TITLE => "Msl Weight ", 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP4_MENU_ITEMS(5), 
ACTION_KIND => GRP4_GRAPH4); 

GRAPH_GRP4_MENU_ITEMS(3) := new MENU_ITEM_TYPE' ( ITEM_KIND => ACTION, 
TITLE => "Msl Angle of Attack ", 

DATA TYPE => NONE, NEXT_ITEM => GRAPH_GRP4_MENU_ITEMS(4), 
ACTION_KIND => GRP4_GRAPH3); 

GRAPH_GRP4_MENU_ITEMS(2) := new MENU_ITEM_TYPE ' ( ITEM_KIND => ACTION, 
TITLE => "Msl Achieved Acceleration ", 

DATATYPE => NONE, NEXT_ITEM => GRAPH_GRP4_MENU_ITEMS(3), 
ACTION_KIND => GRP4_GRAPH2); 

GRAPH_GRP4_MENU_ITEMS(1) := new MENU_ITEM_TYPE • ( ITEM_KIND => ACTION, 
TITLE => "Msl Acceleration Cocnmands ", 

DATA_TYPE => NONE, NEXT ITEM => GRAPH_GRP4 MENU_ITEMS(2), 
ACTION_KIND => GRP4_GRAPH1 ); 

GRAPH_GRP4_MENU := new MENU_TYPE • (TITLE => 

" Msl Parameter Graph Menu ", 

FIRST_ITEM => GRAPH_GRP4_MENU_ITEMS(1), ROWS_BETUEEN_ITEMS => 2); 

-- Graph Group 3 Main Menu 

GRAPH_GRP3_MENU_ITEMS(3) :* new MENU_ITEM_TYPE ' ( ITEM_KIND => ACTION, 
TITLE => "Msl Fuel Flow Rate ", 

DATA_TYPE => NONE, NEXT_ITEM => null, ACTION_KIND => GRP3_GRAPH3); 

GRAPH_GRP3_MENU_ITEMS(2) := new MENUJTEM TYPE ' ( ITEM_KIND => ACTION, 
TITLE => "Msl Fuel Weight “ ", 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP3_MENU_ITEMS(3), 
ACTION_KIND => GRP3_GRAPH2); 

GRAPH_GRP3_MENU_ITEMS(1) := new MENU_ITEM_TYPE ' (ITEM_KIN0 => ACTION, 
TITLE => "Msl Thrust ", 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP3_MENU_ITEMS(2), 
ACTION_KINO => GRP3_GRAPH1); 

GRAPH_GRP3_MENU := new MENU_TYPE'(TITLE => 

" Msl Propulsion Graph Menu ", 

FIRST_ITEM => GRAPH_GRP3_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 
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-- Graph Group 2 Ha in Menu 



GRAPH_GRP2 MENU ITEHS(S) := new MENU_1TEM TYPE'UTEM KINO => ACTION, 
TITLE => "Msl Yaw Angle “ ", 

0ATA_TYPE => NONE, NEXT_ITEM => null, ACTION_KINO => GRP2_GRAPH5) 

GRAPH_GRP2_MENU_ITEMS(4) := new MENU_ITEM_TYPE ' ( ITEM_KIND => ACTION, 
TITLE => "Msl Pitch Angle ", 

DATA_TYPE => NONE, NEXT ITEM => GRAPH GRP2 MENU ITEMS(5), 
ACTION_KIND => GRP2_GRAPH4); 

GRAPH_GRP2 MENU ITEHS(3) := new MENU ITEM TYPE'(ITEM KIND => ACTION, 
TITLE => "Msl Altitude Rate “ “ 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP2_MENU_ITEMS(4), 
ACTION_KINO => GRP2_GRAPH3); 

GRAPH_GRP2_MENU_ITEMS(2) := new MENU_ITEM_TYPE'(ITEM_KIND => ACTION, 
TITLE => "Msl Velocity ", 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH GRP2_MENU ITEMS(3), 
ACTION_KINO => GRP2_GRAPH2); 

GRAPH_GRP2_MENU_ITEMS(1) := new MENU_ITEM_TYPE' ( ITEM_KIN0 => ACTION, 
TITLE => "Msl Mach Number ", 

0ATA_TYPE *> NONE, NEXT_ITEM => GRAPH_GRP2_MENU_ITEMS(2), 
ACTION_KIND => GRP2_GRAPH1 ); 

GRAPH_GRP2_MENU := new MENU_TYPE' (TITLE => 

" Msl Kinematics Graph Menu ", 

FIRST_ITEM => GRAPH_GRP2_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 

-- Graph Group 1 Main Menu 

GRAPH_GRP1_MENU_ITEMS(7) := new MENU_ITEM_TYPE' (ITEM KINO => ACTION, 
TITLE => "Launch A/C-Tgt Range ", 

0ATA_TYPE *> NONE, NEXTJTEM => null, ACTION_KINO => GRP1_GRAPH7) 

GRAPH GRPI MENU_ITEMS(6) new MENU ITEM_TYPE' (ITEM_KIND => ACTION, 
tTtlE => "Tgt Heading Angle ~ ", 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP1 MENU_ITEMS(7), 
ACTION_KINO => GRP1_GRAPH6); 

GRAPH_GRP1_MENU_ITEMS(5) := new MENU_ITEM_TYPE'(ITEM_KINO => ACTION, 
TITLE => "Msl -Tgt LOS Angle Rates ~ ", 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP1_MENU_ITEMS(6), 
ACTION_KINO => GRP1_GRAPH5); 

GRAPH GRPI MENU ITEMS(4) new MENU ITEM TYPE'(ITEH KIND => ACTION, 
tTtlE => "MS I -Tgt Range “ ~ ", 

DATA TYPE => NONE, NEXT ITEM => GRAPH_GRP1_MENU ITEMS(5), 
ACTION_KIND => GRP1_GRAPH4); 

GRAPH GRP1_MENU_ITEMS(3) := new MENUJTEM TYPE'(ITEM_KINO => ACTION, 
tTtlE => "Msl -Tgt Range Rate “ ", 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP1_MENU_ITEMS(4), 
ACTION_KINO => GRP1_GRAPH3); 

GRAPH_GRP1_MENU_ITEMS(2) := new MENU_ITEM_TYPE'(ITEM_KIND => ACTION, 
TITLE -> "Plan view of trajectory ", 

DATA TYPE => NONE, NEXT ITEM => GRAPH GRPI MENU ITEMS(3), 
ACTION_KINO => GRP1_GRAPH2); 

GRAPH_GRP1_MENU_ITEMS(1) := new MENU_ITEM_TYPE'(ITEM_KIND => ACTION, 
TITLE => "Elevation view of trajectory ", 

0ATA_TYPE => NONE, NEXT_ITEM => GRAPH_GRP1_MENU_ITEMS(2) , 
ACTION_KINO => GRP1_GRAPH1); 

GRAPH_GRP1_MENU := new MENU_TYPE' (TITLE => 

~ Ms I -Tgt Geometry Graph Menu ", 

FIRST_ITEM => GRAPH_GRP1_MENU_ITEMS(1), ROUS_BETUEEN_ITEMS => 2); 
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-- Graph Main Menu 



GRAPH_MENU_ITEMS(4) := new MENU_ITEM_TYPE ' ( ITEM_KIND => SUBMENU, TITLE => 
"Msl Parameter Graph Menu ", ~ 

DATA_TYPE => NONE, NEXT_ITEM => null, NEXT_MENU => GRAPH_GRP4_MENU); 

GRAPH_MENU_ITEMS(3) := new MENU_ITEM_TYPE ' ( ITEM_KIND => SUBMENU, TITLE => 
"Msl Propulsion Graph Menu ", ~ 

DATA_TYPE => NONE, NEXT_ITEM => GRAPH_MENU_ITEMS(4), NEXT_MENU => 
GRAPH_GRP3_MENU); 

GRAPH_MENU_ITEMS(2) := new MENU_ITEM_TYPE ' ( ITEM_KIND => SUBMENU, TITLE => 
"Msl Kinematics Graph Menu ", 

DATA TYPE => NONE, NEXT_ITEM => GRAPH MENU ITEMS(3), NEXT MENU => 
GRAPH_GRP2_MENU); 

GRAPH_MENU_ITEMS(1) := new MENU_ITEM_TYPE ' ( ITEM_KIND => SUBMENU, TITLE => 
"Msl-Tgt Geometry Graph Menu ", 

DATA TYPE => NONE, NEXT ITEM => GRAPH MENU ITEMS<2), NEXT MENU => 
GRAPii_GRP1_MENU); 

GRAPH_MENU := new MENU_TYPE'( TITLE => 

" Graph Menus ", 

FIRSTJTEM => GRAPH_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 

-- SOJ 2 Parameter Menu 

SOJ2_MENU_ITEMS(5) := new MENU_ITEM TYPE' (ITEM KINO => DATA_ITEM, 

TITLE => "SOJ ERPD, dBW/MHz: ~ "7 

PROMPT => "Enter SOJ ERPD (dBW/MHz): ", 

REAL VALUE => 30.0, MAX_VALUE => 200.0, MIN_VALUE => 0.0, 

DATA^TYPE => FLOATING_PT, NEXT_ITEM => null); 

SOJ2_MENU_ITEMS(4) := new MENU_ITEM_TYPE' (ITEM_KIND => DATA_ITEM, 

TITLE => "SOJ ECM technique: ", 

SOJ_ECM_VALUE => BARRAGE_NOISE, 

PROMPT => " “ ", 

DATA_TYPE => SOJ_ECM, NEXT_ITEM => SOJ2_MENU_ITEMS(5)); 

SOJ2_MENU_ITEMS(3) := new MENU_ITEM_TYPE ' (ITEM_KIND => DATA_ITEM, 

TITLE => "Look angle rel. to LAC, deg: ", 

PROMPT => "Enter angle (deg)(+right): ", 

REAL_VALUE => 0.0, MAX_VALUE => 90.0, MIN_VALUE => -90.0, 

DATA_TYPE => FLOATING_PT, NEXT_ITEM => S0J2_MENU_ITEMS(4)); 

SOJ2_MENU_ITEMS(2) := new MENU_ITEM_TYPE'(ITEM_KIND => DATA_ITEM, 

TITLE => "Range from launch A/C, NMI: ", 

PROMPT => "Enter distance (NMI): ", 

REAL_VALUE => 150.0, MAX_VALUE => 500.0, MIN_VALUE => 0.0, 

0ATA_TYPE => FLOATING_PT, NEXT_ITEM => S0J2_MENU_ITEMS(3)); 

SOJ2 MENUJTEMS(I) := new MENU ITEM_TYPE ' ( ITEM KINO => DATA ITEM, 

TITLE => "SOJ altitude, kft: ",“ 

PROMPT => "Enter altitude (kft): ", 

REAL_VALUE => 30.0, MAX_VALUE => 150.0, MIN_VALUE => 0.0, 

DATA^TYPE => FLOATING_PT, NEXTJTEM => SOJ2_MENU_ITEMS(2)); 

SOJ2_MENU :* new MENU_TYPE' (TITLE => 

" SOJ 2 Parameter Menu ", 

FIRSTJTEM => S0J2_MENUJTEMS(1), ROWS_BETWEENJTEMS => 2); 



-- SOJ 1 Parameter Menu 

SOJl_MENU_ITEMS(5) := new MENU ITEM TYPE'(ITEM_KIND => OATAJTEM, 
TITLE => "SOJ ERPD, dBW/MHz: “ ", 

PROMPT => "Enter SOJ ERPD (dBW/MHz): ", 

REAL_VALUE => 30.0, MAX_VALUE => 200.0, MIN_VALUE => 0.0, 
DATAJYPE => FLOATING PT, NEXT_ITEM => null); 
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S0J1_MENU_ITEMS(4) := new MENU_ITEM_TYPE'(ITEM_K1ND => OATA_ITEM, 

TITLE => "SOJ ECM technique: 

SOJ_ECM VALUE => BARRAGE_NOISE, 

PROMPT => " ", 

DATA_TYPE => SOJ_ECM, NEXT_ITEM => S0J1_MENU_1TEMS(5)); 

S0J1_MENU_ITEHS(3) := new MENU_ITEM_TYPE'<ITEH_K1ND => DATA_ITEH, 

TITLE => "Look angle rel. to LAC, deg: ", 

PROMPT => "Enter angle (deg)(+right): ", 

REAL VALUE => 0.0, MAX_VALUE => 90.0, MIN_VALUE => -90.0, 

DATA~TYPE => FLOATING_PT, NEXT_ITEM => SOJ1_MENU_ITEMS(4)); 

S0J1_MENU ITEHS(2) := new MENU_ITEM_TYPE'<ITEH_KIND => DATA ITEM, 
TITLE~=> "Range from launch A/C, NHI: ", ~ . 

PROMPT => "Enter distance (NMI): ", 

REAL_VALUE => 150.0, MAX_VALUE => 500.0, MIN_VALUE => 0.0, 

DATA~TYPE => FLOATING_PT, NEXTJTEM => SOJl_MENU_ITEMS(3)); 

S0J1 MENU ITEHS(I) := new MENU ITEM TYPE'dTEM KIND => DATA_ITEM, 
TITLE~=> "SOJ altitude, kft: “ ",“ 

PROMPT => "Enter altitude (kft): ", 

REAL_VALUE => 30.0, MAX_VALUE => 150.0, MIN_VALUE => 0.0, 

DATA_TYPE => FLOATING_PT, NEXT_ITEM => SOJl_MENU_ITEMS(2)); 

S0J1_MENU := new MENU_TYPE' (TITLE => 

" SOJ 1 Parameter Menu ", 

FIRST_ITEM => S0J1_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 

-- Target 2 Parameter Menu 

TGT2_MENU ITEMS(7) := new MENU ITEM_TYPE'(ITEM KIND => DATA ITEM, 
TITLE~=> "ERPD, dBW/Mhz; LG, dB: ",“ 

PROMPT => "Enter ERPD/LG (dBW/Mhz:dB); ", 

REAL_VALUE => 30.0, MAX_VALUE => 200.0, MIN_VALUE => 0.0, 

DATA_TYPE => FLOATING_PT, NEXTJTEM => null); 

TGT2_MENU_ITEMS(6) := new MENUJTEMJYPE*(ITEM_KIND => DATA_ITEM, 

TITLE => "ECM technique: ", 

SSJ ECM VALUE => NONE, 

PROMPT => " ", 

DATAJYPE => SSJ_ECM, NEXT_ITEM => TGT2_MENU_ITEMS(7)); 

TGT2_MENU_ITEMS(5) := new MENU_ITEMJYPE'(ITEM_KIND => DATA_ITEM, 

TITLE => "Target IR radiance: ", 

TGT_IR SI2E_VALUE => MEDIUM, 

PR0MPT”=> " ", 

DATAJYPE => TGT_IR_SIZE, NEXT_ITEM => TGT2_MENU_ITEMS(6)); 

TGT2_MENU_ITEMS(4) := new MENU_ITEMJYPE'(ITEM_KIND => DATA_ITEM, 

TITLE => "Target RCS, square meters: ", 

PROMPT => "Enter RCS (square meters): ", 

REAL_VALUE => 2.0, MAX_VALUE => 100.0, MIN_VALUE => 0.0, 

DATAJYPE => FLOATING_PT, NEXT_ITEM => TGT2_MENU_ITEMS(5)); 

TGT2_MENUJTEMS(3) := new MENU_ITEMJYPE'(ITEM_KIND => DATA_ITEM, 
TITLE~=> "Echelon angle, deg (90 trail):", 

PROMPT => "Enter echelon angle, (deg): ", 

REAL VALUE => 0.0, MAX VALUE => 180.0, MIN_VALUE => -180.0, 
DATAJYPE => FLOATING_PT, NEXT_ITEM => TGT2_MENU_ITEMS(4)); 

TGT2_MENU_ITEMS(2) := new MENUJTEMJYPE'(ITEM_KIND => DATA_ITEM, 
TITLE~=> "Range to target T, feet: ", 

PROMPT => "Enter range (feet): . ", 

REAL VALUE => 100.0, MAX VALUE => 100000.0, MIN VALUE => -100000.0, 
DATAJYPE => FLOATING_Pt7 NEXT_ITEM => TGT2_MENU_ITEMS(3)); 

TGT2_MENU_ITEMS(1) := new MENU_ITEMJYPE'(ITEM_KIND => DATA_ITEM, 

TITLE => "Target altitude, kft: ", 

PROMPT => "Enter altitude (kft): ", 
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REAL VALUE => 30.0, MAX VALUE => 150.0, HIN VALUE => 0.0, 
0ATA_TYPE => FL0AT1NG_PT, NEXT_ITEM => TGT2“mENU_1TEMS(2)); 

TGT2_MENU := new HENU_TYPE' (TITLE => 

" Target 2 Parameter Menu ", 

FIRST_ITEM => TGT2_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 

-- Target 1 Parameter Menu 

TGTI MENU ITEMS(IS) := new MENU ITEM TYPE ' ( ITEM_KIND => DATA_ITEM, 
TITLE“=> "ERPD, dBW/Mhz; Loop gain, dB: ", 

PROMPT => "Enter ERPD/LG (dBW/Mhz:dB) : ", 

REAL_VALUE => 30.0, MAX_VALUE => 200.0, MIN_VALUE => 0.0, 
DATA_TYPE => FLOATING_PT, NEXT_ITEM => null); 

TGTI MENU ITEMS(IA) := new MENU ITEM_TYPE'(ITEM_KIN0 => DATA_ITEM, 
TITLE“=> "ECM technique: “ ", 

SSJ_ECM_VALUE => NONE, 

PROMPT => " ", 

DATA_TYPE => SSJ_ECM, NEXT_ITEM => TGT1_MENU_ITEMS(15)); 

TGT1_MENU_ITEMS(13) := new MENU_ITEM_TYPE ' ( ITEM_KIND => DATA_ITEM, 
TITLE => "Weave period, sec: ", 

PROMPT => "Enter weave period (sec): ", 

REAL_VALUE => 20.0, MAX_VALUE => 100.0, MIN VALUE => 1.0, 
0ATA_TYPE => FLOATING_PT, NEXT_ITEM => TGT1~MENU_ITEMS(14)); 

TGT1_MENU_ITEMS(12) := new MENU_ITEM_TYPE' ( ITEM_KIND => DATA_ITEM, 
TITLE => "Angle to turn, deg (+right): ", 

PROMPT => "Enter angle to turn (deg): ", 

REAL VALUE => 10.0, MAX_VALUE => 3600.0, MIN_VALUE => -3600.0, 
DATa'tyPE => FLOATING_PT, NEXT_ITEM => TGT1_MENU_ITEMS(13)); 

TGT1_MENUJTEMS(11) := new MENU_ITEM_TYPE' ( ITEM_KIN0 => DATA_ITEM, 
TITLE *> "Maneuver buildup time, sec: ", 

PROMPT => "Enter buildup time (sec): ", 

REAL VALUE => 1.0, MAX_VALUE => 10.0, MIN_VALUE => 0.0, 
0ATA~TYPE => FLOATING_PT, NEXT_ITEM => TGT1_MENU_ITEMS(12)); 

TGT1_MENU_ITEMS(10) := new MENU_ITEM_TYPE'(ITEM_KIN0 => 0ATA_ITEM, 
TITLE => "Man. start value, sec or NMI: ", 

PROMPT => "Enter start value (sec / NMI):", 

REAL_VALUE => 10.0, MAX VALUE => 500.0, MIN VALUE => 0.0, 
0ATA_TYPE => FLOATING_PT, NEXT_ITEM => TGT1“mENU_ITEMS(1 1 )); 

TGT1_MENU_ITEMS(9) := new MENU_ITEM_TYPE'(ITEM_KIN0 => 0ATA_ITEM, 
TITLE => "Maneuver start parameter: ", 

MANEUVER START VALUE => FLIGHT TIME, 

PROMPT => " “ “ ", 

0ATA_TYPE => MANEUVER_START, NEXT_ITEM => TGT1_MENU_ITEMS(10)); 

TGT1_MENU_ITEMS(8) := new MENU_ITEM_TYPE'(ITEM_XIND => DATA_ITEM, 
TITLE => "Maneuver g's: ", 

PROMPT => "Enter maneuver g's: ", 

REAL VALUE => 2.0, MAX_VALUE => 12.0, MIN_VALUE => 0.0, 
0ATa“tYPE => FLOATING_PT, NEXTJTEM => TGT1_MENU_ITEMS(9)); 

TGT1_MENU_ITEMS(7) := new MENU_ITEM_TYPE ' ( ITEM_XIND => 0ATA_ITEM, 
TITLE => "Maneuver type: ", 

MANEUVER_VALUE => NONE, 

PROMPT => " ", 

DATA_TYPE => MANEUVER, NEXT_ITEM => TGT1_MENU_ITEMS(8) ); 

TGT1_MENU_ITEMS(6) := new MENU_ITEM_TYPE ■ ( ITEM_KIND => 0ATA_ITEM, 
TITLE => "Target IR radiance: ", 

TGT_IR_SIZE_VALUE => MEDIUM, 

PROMPT => " ", 

DATA_TYPE => TGT_IR_SIZE, NEXTJTEM => TGT1_MENU_ITEMS(7) ); 
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TGT1_MENU_ITEHS(5) := new MENU_ITEH_TYPE'(ITEM_iaND => DATAJTEH, 
TITLE => “Target RCS, square meters: ", 

PROHPT => "Enter RCS (square meters): ", 

REAL_VALUE => 2.0, MAX_VALUE => 100.0, M1N_VALUE => 0.0, 
DATA_TYPE => FLOATING_PT, NEXTJTEM => TGT1_MENU_ITEMS(6)); 

TGT1_MENU_ITEHS(4) := new MENU_ITEH_TYPE'(ITEM_ICIND => DATA_ITEM, 
TITLE => "Target slant range, NMI : ", 

PROHPT => "Enter range (NMI): ", 

REAL VALUE => 20.0, MAX VALUE => 500.0, MIN VALUE => 0.0, 
0ATa“tYPE => FLOATING_PT, NEXTJTEM => TGT12mENU_ITEMS(5)); 

TGT1_MENUJTEMS(3) := new MENUJTEMJYPE'(ITEM_KIND => DATAJTEM, 
TITLE => "Target aspect angle, deg: ", 

PROMPT => "Enter aspect angle (deg): ", 

REAL VALUE => 180.0, MAX_VALUE => 360.0, MIN_VALUE => -360.0, 
DATAJYPE => FLOATING_PT, NEXTJTEM => TGT1_MENU_ITEMS(4)); 

TGT1_MENUJTEMS(2) := new MENUJTEMJYPE'(1TEM_KIND => DATA_ITEM, 
TITLE => "Target speed, mach: ", 

PROMPT => "Enter mach nunber: ", 

REAL_VALUE => 0.9, MAX VALUE => 4.0, MIN_VALUE => 0.0, 

DATAJYPE => FLOATING_PT, NEXT_ITEM => TGT1_MENUJTEMS(3)); 

TGT1_HENUJTEMS(1) := new MENUJTEM JYPE ' ( 1TEM_KIND => DATAJTEM, 
TITLE => "Target altitude, kft: ", 

PROMPT => "Enter altitude (kft): ", 

REAL_VALUE => 30.0, MAX VALUE => 150.0, MIN_VALUE => 0.0, 
DATAJYPE => FLOATING_PT, NEXT_ITEM => TGT1_MENU_ITEMS(2)); 

TGT1_MENU := new MENUJYPE' (TITLE => 

" Target 1 Parameter Menu ", 

FIRSTJTEM => TGT1_MENUJTEMS(1), ROWS_BETWEENJTEHS => 1); 

-- Target Parameter Menus 

TGT_MENUJTEMS(7) := new MENUJTEMJYPE'(ITEM_KIND => SUBMENU, TITLE 
"SOJ 2 Parameter Menu ", 

DATAJYPE => NONE, NEXT_ITEM => null, NEXT_MENU => 

SOJ2~MENU); 

TGT_MENUJTEMS(6) := new MENUJTEM TYPE'dTEM KIND *> DATA_ITEM, 
“title => "Enable SOJ 2: “ "7 

YES_NO_VALUE => NO, PROMPT => " ", 

DATAJYPE => YES_NO, NEXT_ITEM => TGT_MENU_ITEMS(7)); 

TGT_MENU_ITEMS(5) := new MENU_ITEMJYPE'(ITEM_KIND => SUBMENU, TITLE 
"SOJ 1 Parameter Menu ", 

DATA TYPE => NONE, NEXT ITEM => TGT MENU_ITEMS(6), NEXT MENU => 
SOJ17mENU); 

TGT_MENUJTEMS(4) := new MENU_ITEMJYPE'(1TEM_KIND => DATA_ITEM, 
TITLE => "Enable SOJ 1: ", 

YES_NO_VALUE .=> NO, PROMPT => " ", 

DATAJYPE => YES_NO, NEXT_ITEM => TGT_MENU_ITEMS(5)); 

TGT_MENUJTEMS(3) := new MENUJTEHJYPE'(ITEM_KIND => SUBMENU, TITLE 
"Target 2 Parameter Menu ", 

DATAJYPE => NONE, NEXT_ITEM => TGT_MENU ITEMS(4), NEXT_MENU => 
TGT2_MENU); 

TGT MENU_ITEMS(2) := new MENU ITEM TYPE'(ITEM_KIND => DATA_ITEM, 
“title => "Enable target 2 ~ “ ", 

YES_NO_VALUE => NO, PROMPT => " ", 

DATAJYPE => YES_NO, NEXT_ITEM => TGT_MENU_ITEMS(3)); 

TGT_MENUJTEMS(1) := new MENUJTEMJYPE' ( ITEM_KIND => SUBMENU, TITLE 
"Target 1 Parameter Menu ", 

DATAJYPE => NONE, NEXT_ITEM => TGT_MENU_ITEMS(2), NEXT_MENU => 
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TGT1_MENU); 

TGT_HENU := new MENU_TYPE'(T1TLE => 

" Target Parameter Menus ", 

FIRST_ITEM => TGT_MENU_ITEHS(1), R0WS_BETWEEN_1TEMS => 2); 

-- Launch Aircraft Parameter Menu 

LAUNCHER_MENU_ITEMS(6) := new MENU_1TEM_TYPE' ( ITEM_KIND => DATA_ITEM, 
TITLE => "Launch A/C guidance mode; ", 

INT_GUIDANCE_VALUE => NON_MANEUVERING, 

PROMPT => " “ ", 

0ATA_TYPE => 1NT_GUI0ANCE, NEXT_1TEM => null); 

LAUNCHER_MENU_1TEMS(5) := new MENU_1TEM_TYPE'(ITEM_KIND => DATA_1TEM, 
TITLE => "Launch A/C lead angle, deg: ", ~ 

PROMPT => "Enter lead angle (deg): ", 

REAL_VALUE => 0.0, MAX_VALUE => 90.0, MIN_VALUE => -90.0, 
OATA'tYPE => FLOATING_PT, NEXT_ITEM => LAUNCHER_MENU_ITEMS(6)); 

LAUNCHER_MENU_1TEMS(4) := new MENUJTEM TYPE ' ( ITEM_KIN0 => DATA ITEM, 
TITLE => "Launch A/C speed, mach: “ ", 

PROMPT -> "Enter mach nurber: ", 

REAL_VALUE => 0.9, MAX_VALUE => 3.0, MIN_VALUE => 0.0, 

OATa'tYPE => FLOATING_PT, NEXT_ITEM => LAUNCHER_MENU_ITEMS(5)); 

LAUNCHER_MENU_ITEMS(3) :* new MENU ITEM_TYPE ' ( ITEM_KIND => DATA_ITEM, 
TITLE => "Launch A/C alti tude,“kft : ", 

PROMPT => "Enter altitude (kft): ", 

REAL_VALUE => 30.0, MAX_VALUE => 70.0, MIN_VALUE => 0.0, 

DATA'tyPE => FLOATING_PT, NEXT_ITEM => LAUNCHER_MENU_ITEMS(4)); 

LAUNCHER_MENU_ITEMS(2) ;* new MENU_ITEM_TYPE ' ( ITEM_KIN0 => DATA_ITEM, 
TITLE => "Launcher type: ~ ", 

LAUNCHER_VALUE => RAIL, PROMPT => " 

DATA_TYPE => LAUNCHER, NEXT_ITEM => LAUNCHER_MENU_ITEMS(3)); 

LAUNCHER_MENU_ITEMS(1) := new MENU_ITEM TYPE'(ITEM_KIN0 => DATA_ITEM, 
TITLE => "Launch A/C type: ~ ", 

AIRCRAFT_KIND_VALUE => F 14, PROMPT => " 

DATATYPE => AIRCRAFT_l(INO, NEXT_ITEM => LAUNCHER_MENU_ITEMS(2)); 

LAUNCHER_MENU ;= new MENU_TYPE' (TITLE => 

" Launch Aircraft Parameter Menu ", 

FIRST_ITEM => LAUNCHER_MENU_ITEMS(1), ROWS_BETUEEN_ITEMS => 2); 

-- File Operations Menu 

FILE_MENU_ITEMS(7) := new MENU_ITEM_TYPE'(ITEM_XIND => DATA_ITEM, 
TITLE *> "Data log interval, frames: ", 

PROMPT => "Enter log interval (frames): ", 

REAL_VALUE => 4.0, MAX VALUE => 100.0, MIN VALUE => 1.0, 

DATA_TYPE => FLOATING_PT, NEXT_ITEM => null); 

FILE_MENU_ITEMS(6) :* new MENU_ITEM_TYPE'(ITEM_KIND => DATA_ITEM, 
TITLE => "Simulation frame time, sec: ", 

PROMPT -> "Enter frame time (sec); ", 

REAL_VALUE *> 0.25, MAX VALUE => 10.0, MIN_VALUE => 0.01, 
DATA_TYPE => FLOATING_PT, NEXT_ITEM => FILE_MENU_ITEMS(7)); 

FILE_MENU_ITEMS(5) := new MENU_ITEM_TYPE'(ITEM_KIND => DATA_ITEM, 
TITLE => "Write output data to file: ", 

YES_NO_VALUE => NO, PROMPT => " ", 

DATA_TYPE => YES_NO, NEXT_ITEM => FILE_MENU_ITEMS(6)); 

FILE_MENU_ITEMS(4) := new MENU_ITEM_TYPE'(ITEM_I(IND => DATA_ITEM, 
TITLE => "Name of output data file: ", 

PROMPT => "Enter name of output file; ", 

TEXT_VALUE => MISSILE. OUTFILE, 
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DATA^TYPE => TEXT, NEXT_ITEM => FILE_MENU_ITEMS<5)); 

FILE_MENU_ITEMS<3) := new MENU_1TEM_TYPE • (ITEM^KIND => ACTION, 

TITLE => "Save scenario data file ", 

DATA TYPE => NONE, NEXT ITEM => FILE MENU ITEMS<4), 

ACTION_KIND => SAVE_DATA); 

FILE_MENU_ITEMS(2) := new MENU_ITEM_TYPE • ( ITEM_KIND => ACTION, 

TITLE => "Load scenario data file ", 

DATA_TYPE => NONE, NEXT_ITEM => FILE_MENU ITEMS<3), 

ACTION_KIND => LOAD_DATA); 

FILE_MENU_ITEMS(1) := new MENU_ITEM_TYPE ' ( ITEM_KIND => DATA_ITEM, 
TITLE => "Name of scenario data file: ", 

PROMPT => "Enter name of scenario file: ", 

TEXT_VALUE => MISSILE. DATFILE, 

DATA_TYPE => TEXT, NEXT^ITEM => FILE_MENU_ITEMS<2)); 

FILE_MENU := new MENU_TYPE * (TITLE => 

" File Operations Menu ", 

FIRST_ITEM => FILE_MENU_ITEMS(1), ROWS_BETWEEN_ITEMS => 2); 



-- Main Menu 

MAIN_MENU_ITEMS(5) := new MENU_ITEM_TYPE • (ITEM_KIND => SUBMENU, TITLE => 
"Graph Data from Previous Run ", 

DATA_TYPE => NONE, NEXT_ITEM => null, NEXT_MENU => GRAPH_MENU); 

MAIN_MENU_ITEMS(4) := new MENU_ITEM_TYPE • ( ITEM_KIND => ACTION, TITLE => 
"Start Simulation Run ", 

DATA_TYPE => NONE, NEXT_ITEM => MAIN MENU ITEMS<5), 

ACTION^KIND => START^RUN); 

MAIN_MENU_ITEMS<3) := new MENU_ITEM_TYPE • < ITEM_KIND => SUBMENU, TITLE => 
"Target Parameter Menus ", 

DATA TYPE => NONE, NEXT ITEM => MAIN_MENU_ITEMS(4), NEXT_MENU => 
TGT^MENU); 

MAIN_MENU_ITEMS<2) := new MENU^ITEM^TYPE ' < ITEM_KIND => SUBMENU, TITLE => 
"Launch Aircraft Parameter Menu", 

DATA_TYPE => NONE, NEXT ITEM => MAIN_MENU_ITEMS(3), NEXT MENU => 
LAUNCHER_MENU); 

MAIN^MENU^ITEMSd) := new MENU_ITEM_TYPE * ( ITEM_KIND => SUBMENU, TITLE => 
"File Operations Menu ", 

DATA_TYPE => NONE, NEXT_ITEM => MAIN_MENU_ITEMS(2), NEXT__MENU => 
FILE_MENU); 

MAIN_MENU := new MENU_TYPE ' (TITLE => MISSILE. MAIN MENU TITLE, 

FIRST_ITEM => MAIN_MENU_ITEMS(1), ROWS^BETWEEN^ITEMS => 2); 

end SETUP_MENU_DATA; 



separate (USER^INTERFACE) 



procedure SETUP^RUNTIME^SCREEN is 
begin 

SYSTEM_SPECIFIC.CLEAR SCREEN; 

DRAW^RUNTIME^BORDER; 

SYSTEM_SPECIFIC.PUT_STRING( 1, 3, "Elapsed Time, sec :"); 

SYSTEM_SPECIFIC.PUT_STRING( 2, 3, "Flight Time, sec :"); 

SYSTEM SPECIFIC. PUT STRING( 3, 3, "Msl Time to Go, sec :"); 

system“specific.put”string( 4, 3, 

"); 

SYSTEM_SPECIFIC.PUT_STRING( 5, 3, "Msl RF Seeker Mode :"); 

SYSTEM_SPECIFIC.PUT_STRING( 6, 3, "Msl IR Seeker Mode :"); 
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SYSTgM_SPECIFIC.PUT_STRING( 7, 3, "Msl Az Gimbal Angle, deg 

SYSTEM_SPECIFIC.PUT STRING( 8, 3, "Msl El Gimbal Angle, deg 

SYSTEM SPECIFIC.PUT~STRIMG( 9, 3, “Msl Az LOS Rate, deg/sec 

SYSTEMlsPECIFIC.PUT^TRINGdO, 3, "Msl El LOS Rate, deg/sec 

SYSTEM_SPECIFIC.PUT_STRIMG(11, 3, 

H. ......... ............. 11^- 

SYSTEM_SPECIFIC.PUT_STRING(12, 3, "Msl Guidance Mode :"); 

SYSTEM SPECIFIC. PUT_STRING(13, 3, "Msl Az Accel Cmd, g's 

SYSTEm3pECIFIC.PUT_STRING( 14, 3, "Msl El Accel Cmd, g's 

SYSTEM_SPEC I F I C . PUT_STR I HG( 15 , 3 , 

II ...... 11^. 

SYSTEM_SPECIFIC.PUT_STRING<16, 3, "Msl Propulsion Mode :"); 

SYSTEM_SPECIFIC.PUT_STRING(17, 3, "Msl Thrust, lbs 

SYSTEM_SPEC I F I C . PUT_STR I NG( 18 , 3 , 

II T. II). 

SYSTEM_SPECIFIC.PUT_STRIHG(19, 3, "Msl Weight* lbs 
SYSTEM_SPECIFIC.PUT STRING(20, 3, "Msl Angle of Attack, deg :"); 
SYSTEM_SPECIFIC.PUT“sTRING< 21, 3, "Msl Sideslip Angle, deg 
SYSTEM SPECIF I C.PUT_STRING(22, 3, 

>; 

SYSTEM SPECIFIC. PUT STRING( 1,41, "Msl Mach 

SYSTEmIsPECIFIC.PUT~STRING( 2,41, "Msl Velocity, ft/sec 

SYSTEM_SPECIFIC.PUT_STRING( 3,41, "Msl Altitude, ft 

SYSTEM_SPECIFIC.PUT_STRING( 4,41, "Msl Altitude Rate, ft/sec:"); 

SYSTEm“sPECIFIC.PUt“sTRING( 5,41, "Msl Pitch Angle, deg 

SYSTEM_SPECIFIC.PUT~STRING( 6,41, "Msl Heading Angle, deg 

SYSTEM_SPECIFIC.PUT_STRIHG( 7,41, "Msl Downrange Pos, NMI 

SYSTEM SPECIFIC.PUT_STRIMG( 8,41, "Msl Crossrange Pos, NMI :"); 

system“specific.put_string( 9,41, 

" "); 

SYSTEM SPECIFIC. PUT_STRIMG(10, 41, "Msl X Axis Accel, g's 
SYSTEM~SPECIFIC.PUT_STRING(11,41, "Msl Y Axis Accel, g's 
SYSTEM~SPECIFIC.PUT~STRING(12,41, "Msl Z Axis Accel, g's 
SYSTEM~SPECIFIC.PUT~STRIMG(13,41, 

11.. ............................... II )• 

SYSTEM_SPECIFIC.PUT_STRING(14,41, "Launcher-Tgt Range, NMI 
SYSTEM SPECIFIC. PUT STRING(15,41 , "Msl-Tgt Range, NMI 
SYSTEm“sPECIFIC.PUT~STRING( 16,41, "Msl-Tgt Range Rate,ft/sec:"); 
SYSTEM“spECIFIC.PUt“strING( 17,41, "Tgt Mach 
SYSTEm“specific.PUtIsTRING( 18,41, "Tgt Altitude, ft 
SYSTEM SPECIFIC. PUT_STRING(19, 41, "Tgt Heading Angle, deg 
SYSTEM~SPEC I F I C . PUT_STR I NG(20 , 4 1 , 

11.. ....... ............................11). 

end SETUP_RUNTIME_SCREEN; 



separate (USER_INTERFACE) 



procedure SHOW TITLE SCREEN is 

NUM TITLE iCREEN~LINES : constant ;= 21; 

TITLE SCREEN TEXT : STRING ARRAY(1..NUM TITLE SCREEN LINES) := ( 
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MI SS I LE . T I TLE_SCREEN_L I NE , 

II 

" HELLO! 

II 

"The simulation represents a generic air-to-air missile and 
"there for is 



UNCLASSIFIED! 
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ENJOY! 



II 



II 

CHAR : character; 

ROW : integer; 
begin 

SYSTEM SPECIFIC. CLEAR SCREEN; 

SYSTEM'sPECIFIC.TURN cursor OFF; 

SYSTEM_SPEC I F I C . DRAW^OX; 

ROW := 2; 

for I in 1..NUM TITLE^SCREEN^LINES loop 

SYSTEM SPEcTfIC.PUT^STRINGCROW, 10, TITLE_SCREEN TEXT(D); 

ROW :=“rOW + 1; 
end loop; 

SYSTEM_SPEC I F I C . REVERSE_VIDEO ON ; 

SYSTEM_SPECIFIC.PUT STRING(24725, “ Press the space bar to begin '•); 
S YSTEM_SPEC I F I C . REVERSE_V I DEO_OF F ; 

KEYBOARD_HANDLER . GET_KEY_WA 1 T ( CHAR ) ; 
end SHOW_TITLE_SCREEN; 



II 

t 

II 




separate (USER_INTERFACE) 



task body KEYBOARD_HANDLER is 

BUFFER^SIZE : constant := 100; 

BUFFER : arrayC 1 . .BUFFER_SIZE) of character; 

HEAD_INDEX : integer := 1; 

TAIL_INDEX : integer := 1; 

KEYS_IN_BUFFER : integer := 0; 

begin 

loop 

while SYSTEM_SPECIFIC.KEY_AVAILABLE and 
KEYS_IN_BUFFER < BUFFER^SIZE loop 

BUFFERCHEAD INDEX) := SYSTEM_SPECI FIC.GET KEY; 
HEAD_INDEX 7= (HEAD_INDEX mod BUFFER_SIZE) + 1; 
KEYS_IN_,BUFFER := KEYS_IN_BUFFER + 1; 
end loop; 

select 

accept KEY_AVAILABLE(KEYJN_BUFFER : out boolean) do 
if KEYS_IN_BUFFER > 0 then 
KEY^IN^BUFFER := true; 

else 

KEY_IN_BUFFER := false; 
end if; 

end KEY^AVAILABLE; 
or 

when KEYS^IN^BUFFER > 0 => 

accept GET_KEY_WAIT(KEY : out character) do 

KEY ;= BUFFER(TAIL_INDEX); 

TAIL INDEX := (TAIL_INDEX mod BUFFER_SIZE) + 1; 
KEYSJN_BUFFER := KEYS_IN_BUFFER - 1; 
end GET_KEY_WAIT; 
or 

accept GET_KEY_NOWAIT(KEY : out character; 

KEY^VALID : out boolean) do 

if KEYS_IN_BUFFER > 0 then 
KEY := BUFFER(TAIL_INDEX); 

TAILJNDEX := (TAILJNDEX mod BUFFER^SIZE) + 1; 
KEYS IN_BUFFER := KEYS IN_BUFFER - l7 
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KEY^VALID := true; 

else 

KEY_VAL1D := false; 
end if; 

end GET_KEY_N0WA1T; 

else 

nul 1; 

end select; 
end loop; 

end KEYBOARD_HANDLER; 



-- System Specific Package Specification 

-- This package contains the routines that are specific to the particular 
-- computer system that it is running on. 



with MATH; use MATH; 

package SYSTEM SPECIFIC is 
type MENU^COMMAND is ( 
UP_ARROW, 

DOWN_ARROW, 

ENTER_KEY); 

procedure INIT_VIDEO; 

function IS_MONOCHROME 
return boolean; 

procedure CLEAR_SCREEN; 

procedure REVERSE_VIDEO_ON; 

procedure REVERSE_VIDEO_OFF; 

procedure MOVE_CURSOR ( 

ROW : integer; 

COLUMN : integer); 

procedure TURN^CURSOR^ON; 

procedure TURN_CURSOR_OFF; 

procedure PUT STRING ( 
SCREEN_ROW : integer; 
SCREEN_COLUMN : integer; 
TEXT_STRING : string); 

procedure PUT_REAL ( 

ROW : integer; 

COLUMN : integer; 

NUMBER : REAL; 

AFTER : integer := 2); 

procedure INPUT^STRING ( 

TEXT_STRING : out string); 

function GET^KEY 
return character; 

function KEY^AVAILABLE 
return boolean; 

function GET MENU_COMMAND 
return MENU^COMMANO; 

procedure DRAW_BOX; 
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procedure QUIT_PROGRAM; 
end SYSTEM_SPECIFIC; 

-- Systefli Specific Package Body 

-- This package contains the routines that are specific to the particular 
-- cotnputer system that it is running on. 



with HATH; use HATH; 

with BIT_0PS; use BIT_OPS; 

with COHHON_OISPLAY_TYPES; 

with System; 

with PROGRAH_CONTROL; 

with INTERRUPT; 

with TEXT_IO; 

with REALJO; 

with TTY; 

with BOX; 

with EOUIPHENT; 

package body SYSTEH_SPECIFIC is 
HONOCHROHE : boolean; 

REVERSE_VIOEO : boolean := false; 

FAST_VIDEO : boolean := true; 

EGA_FLAG : boolean; 

COPROCESSOR_FLAG : boolean; 

-- Set up video buffer as an array 

HONO_BUFFER_ADDR : System. Address := System. Address( 16#B000_0000#); 
COLOR_BUFFER_ADDR : System. Address := System. Address(16#B800_0000#); 

type byte is range 0..16#FF#; 

type SCREEN_CHAR_TYPE is 
record 

CHAR : byte; 

ATTRIBUTE : byte; 
end record; 

pragma PACK(SCREEN_CHAR_TYPE); 

H0N0_BUFFER : array (0..24, 0..79) of SCREEN CHAR_TYPE; 

COLOR_BUFFER : array (0..24, 0..79) of SCREEN~CHAR~TYPE; 

for HONO BUFFER use at HONO BUFFER AODR; 
for COLOfi_BUFFER use at COLOR_BUFFER_ADDR; 



procedure INIT VIDEO is 

REGISTER 7 INTERRUPT. REGISTERS; 

TEST_BITS : integer; 

EQUIP : EOUIPHENT. EOUIPHENT_LIST; 
begin 

REGISTER. AX := 16#0F00#; -- Return current video state 
I NTERRUPT . VECTOR( 1 6#1 0#, REGISTER) ; 
if (REGISTER. AX and 16#FF#> = 7 then 
HONOCHROHE :* true; 

else 

HONOCHROHE := false; 
end if; 



REGISTER. AX := 16#1200# 
REGISTER. BX := 16#7F10# 
REGISTER. CX := 16#00FF# 
INTERRUPT.VECTOR(16#10iK 



-- Code to return EGA info 
REGISTER); 
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TEST BITS := (REGISTER. BX and 16#7F00#) or (REGISTER. CX and 16#OOFO#); 
if TEST BITS /= 0 then 
EGA^FLAG := false; 

else 

EGA_FLAG := true; 
end if; 

EQUIP := EQUIPMENT. LIST; 
if EQUIP.MATH_COPROCESSOR then 
COPROCESSOR^FLAG := true; 

else 

COPROCESSOR_FLAG := false; 

text_io.put_l ine( "ERROR: No 80x87 math coprocessor found."); 
text_io.put_l ineC'This program requires a math coprocessor."); 
PROGRAM_CONTROL . QU I T ( 0 ) ; 
end if; 

end INIT^VIDEO; 



procedure DRAW_BOX is 
begin 

BOX.DRAW(0, 0, 24, 79, BOX.DOUBLE_SIDED); 
end DRAW_BOX; 



function IS_MONOCHROME 
return boolean is 
begin 

return MONOCHROME; 
end IS MONOCHROME ; 



procedure CLEAR_SCREEN is 

REGISTER : INTERRUPT. REGISTERS; 
begin 

REGISTER. AX := 16#0600#; 

if IS_MONOCHROME then 

REGISTER. BX := 16#0700#; 

else 

REGISTER. BX := 16#0700#; 
end if; 

REGISTER. CX := 16#0000#; 

REGISTER. DX := 16#100# * 24 + 79; 
INTERRUPT. VECTOR(16#10#, REGISTER); 
end CLEAR SCREEN; 



procedure REVERSE^VIDEO^ON is 
begin 

REVERSE VIDEO := true; 
end REVERSe“vIDEO ON; 



procedure REVERSE_VIDEO_OFF is 
begin 

REVERSE VIDEO := false; 
end REVERSE^VIDEO^OFF; 



procedure MOVE_CURSOR ( 

ROW : integer; 

COLUMN : integer) is 

REGISTER : INTERRUPT .REGISTERS; 
begin 

REGISTER. AX := 16#0200#; 
REGISTER. BX := 16#0000#; 
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REGISTER. DX := 16#100# * ROW + COLUMN; 

I NTERRUPT . VECTOR ( 1 6#1 0#, REG I STER ) ; 
end MOVE_CURSOR; 



procedure TURN_CURSOR_ON is 

REGISTER : INTERRUPT .REGISTERS; 
begin 

REGISTER. AX := 16#0100#; -- Set cursor type 
if I S_MONOCHROME then 

REGISTER. CX := 16#0C0D#; -- Cursor start & stop lines 

else 

REGISTER.CX := 16#0607#; 
end if; 

I NTERRUPT. VECTOR(16#10#, REGISTER); 
end TURN_CURSOR_ON; 



procedure TURN CURSOR OFF is 

REGISTER 7 INTERRUPT. REGISTERS; 
begin 

REGISTER. AX := 16#0100#; -- Set cursor type 
REGISTER.CX := 16#2020#; -- Cursor start & stop lines 
I NTERRUPT . VECTOR ( 1 6#1 0#, REG I STER ) ; 
end TURN CURSOR_OFF; 



procedure PUT_STRING ( 

SCREEN_ROW : integer; 

SCREEN_COLUMN ; integer; 

TEXT_STRING : String) is 

COLUMN : integer; 
begin 

if FAST VIDEO then 

COLUMN := SCREEN_COLUMN; 
if IS MONOCHROME then 

for I in TEXT_STRING'range loop 

MONO_BUFFER(SCREEN_ROW, COLUMN). CHAR := 
byte(character'pos(TEXT_STRING(I))); 
if REVERSE^VIDEO then 

MONO_BUFFER(SCREEN_ROW, COLUMN). ATTRIBUTE := 16#70#; 

else 

MONO_BUFFER(SCREEN_ROW, COLUMN) .ATTRIBUTE := 16#07#; 
end if; 

COLUMN := COLUMN + 1; 
end loop; 

else 

for I in TEXT_STRING*range loop 

COLOR_BUFFER(SCREEN_ROW, COLUMN). CHAR := 
byte(character»pos(TEXT_STRING(I))); 
if REVERSE_VIDEO then 

COLOR_BUFFER(SCREEN_ROW, COLUMN) .ATTRIBUTE := 16#17#; 

else 

COLOR_BUFFER(SCREEN_ROW, COLUMN) .ATTRIBUTE := 16#07#; 
end if; 

COLUMN := COLUMN + 1; 
end loop; 
end if; 

else 

TT Y . Put (COMMON_D I SPLAY_TYPES . ROW_RANGE(SCREEN_ROW) , 

COMMON_D I SPL AY_T YPES . COLUMN RANGE ( SCREEN_COLUMN ) , 

TEXT^STRING, REVERSE^VIDEO => REVERSE_VIDEO); 

end if; 

end PUT_STRING; 



procedure PUT_REAL ( 
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ROW : integer; 

COLUMN : integer; 

NUMBER : REAL; 

AFTER : integer ;= 2) is 

REAL_STRING : stringCI . . 10); 
begin 

REAL_IO.Put(REAL_STRING, NUMBER, AFT => AFTER, EXP => 0); 
PUT_STRING(ROW, COLUMN, REAL_STRING); 
end PUT REAL; 



procedure INPUT STRING ( 

TEXT_STRING”: out string) is 
LAST : natural; 
begin 

LAST := TEXT_STRING'last; 
TTY.Get(TEXT_STRING, LAST); 
end INPUT_STRING; 



function GET_KEY 

return character is 
SCAN_COOE : COMMON_DISPLAY_TYPES.byte; 
CHAR : character; 
begin 

TTY,Get(SCAN_COOE, CHAR); 
return CHAR; 
end GET_KEY; 



function KEY^AVAILABLE 
return boolean is 
begin 

return TTY. CHAR READY; 
end KEY_AVAILABLE; 



function GET MENU_COMMAND 
return MENU_COMMAND is 

CHAR : character; 

SCAN_COOE : COMMON DISPLAY_TYPES.byte; 
NEW__MENU_COMMAND rMENU_COMMAND; 
begin 
loop 

TTY.Get(SCAN_COOE, CHAR); 

case SCAN_COOE is 
when 72 => 

NEU_MENU_COMMAND := UP_ARROW; 
exit; 
when 80 => 

NEW_MENU_COMMAND := DOWN^ARROW; 
exit; 
when 28 => 

NEW_MENU_COMMAND := ENTER_KEY; 
exit; 

when others => 
null; 
end case; 
end loop; 

return NEU_MENU COMMAND; 
end GET_MENU_COMMAND; 



procedure CRJIT_PROGRAM is 
DUMMY ; integer; 
begin 
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CLEAR^SCREEN; 

MOVE CURSOR(0, 0); 
TURnIcURSOR_ON; 
PROGRAM_CON T ROL . QU I T ( 0 ) ; 
end QUIT_PROGRAM; 



end SYSTEM_SPECIFIC; 



-- Integration Package Specification 

-- This package contains the limited private data type for state variables and 
-- the integration initialization and update procedures used on the states. 



with MATH; use MATH; 

package INTEGRATION is 

procedure INITIALIZE; 

procedure ADVANCE^TIME; 

procedure SET_TIME_STEP_SIZE ( 

NEW_TIME_STEP_SIZE : in REAL); 

function STEP_SIZE 
return REAL; 

end INTEGRATION; 

-- Integration Package Body 

-- This package performs integration of the state variables. 



with MATH; use MATH; 

with REAL MATRIX; use REAL MATRIX; 

with APPLICATION; 

with ENVIRONMENT; 

package body INTEGRATION is 
TIME^STEP^SIZE : REAL; 

STATE : VECTORd . .APPLICATION ,NUMBER_OF STATE_VARIABLES); 
TEMP_STATE : VECTORd . .APPLICATION. NUMBER_OF_STATE_VARIABLES); 
DERIVATIVEI : VECTORd . .APPLICATION. NUMBER OF STATE VARIABLES); 
0ERIVATIVE2 : VECTORd . .APPLICATION .NUMBER“ of“sTATE“vAR I ABLES); 



procedure SET TIME_STEP SIZE ( 

NEU_TIME_STEP_SIZE T in REAL) is 
beg i n 

TIME STEP_SIZE := NEW_TIME_STEP_SIZE; 
end SET_TIME_STEP_SIZE; 



procedure HANNA is 
begin 

TEMP STATE := STATE + DERIVATIVE2 * TIME STEP SIZE; -- Euler step 
ENVIRONMENT. SET TIME (ENVIRONMENT. Time + TIME STEP SIZE); -- Update time 
APPLICATION.PUT“sTATES(TEMP STATE); 

APPL I CAT I ON . COMPUTE_DER I VAtTvES; 
APPLICATI0N.GET_DERIVATIVES(DERIVATIVE1); 

-- Trapezoidal step 

STATE := STATE + (DERIVATIVEI + DERIVATIVE2) * 0.5*TIME_STEP_SIZE; 
DERIVATIVE2 := DERIVATIVEI; -- Save derivatives for next step 
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end HANNA^ 



procedure INITIALIZE is 
begin 

APPL I CAT I ON ■ GET DERI VAT I VES ( DER I VAT I VE2 ) ; 
APPLICATION. GEtIsTATES(STATE); 
end INITIALIZE; 



procedure ADVANCE^TIME is 
begin 

HANNA; 

end ADVANCE_TIME; 

function STEP_SIZE 
return REAL is 
begin 

return TIME_STEP_SIZE; 
end STEP_SIZE; 

end INTEGRATION; 



-- Math Package Specification 



with MATH^LIB; 
package MATH is 

type REAL is digits 15; -- Use this for all floating point values 

PI : constant := MATH_LIB.PI; -- Dimensionless 

E : constant := MATH_LIB.E; -- Dimensionless 

DEG_TO_RAD : constant := PI / 180.0; -- Deg 

RAD_TO_DEG : constant := 1.0 / DEG_TO_RAD; -- 1 / Deg 

G : constant := 32.174; -- Gravity, feet / sec**2 

C : constant := 983_569_000.0; -- Light speed, feet / sec 

GAMMA : constant := 1.4; -- Air specific heat ratio 

R : constant := 1718.0; -- Air gas constant, foot- lb / (slug-R) 

R_EARTH : constant := 20_925_626.0; -- Earth radius, feet 

BOLTZMANN_K : constant := 1.38E-23; -- Boltzmann's constant, watt-sec/deg K 

FEET_PER_NMI: constant := 6076.115; -- Feet / NMI 

MENU^SYSTEM : constant boolean := true; 

function SIGN ( 

ARG : in REAL) 
return REAL; 

function SIN ( 

ARG : in REAL) 
return REAL; 

function COS ( 

ARG : in REAL) 
return REAL; 

function TAN ( 

ARG : in REAL) 
return REAL; 

function AS IN ( 

ARG : in REAL) 
return REAL; 

function ACOS ( 

ARG : in REAL) 
return REAL; 
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furxjtion ATAN ( 

ARG : fn REAL) 
return REAL; 

function ATAN2 ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL; 

function EXP ( 

ARG : in REAL) 
return REAL; 

function SORT ( 

ARG : in REAL) 
return REAL; 

function LN ( 

ARG : in REAL) 
return REAL; 

function LOG ( 

ARG : in REAL) 
return REAL; 

procedure SEED_RAN ( 

ARG : in REAL); 

f unction RAN 
return REAL; 

function GAUSSIAN ( 

MEAN : in REAL; 
STD_DEVIATION : in REAL) 
return REAL; 

function LIMIT ( 

VARIABLE : in REAL; 

LOWER LIMIT : in REAL; 
UPPER^LIMIT : in REAL) 
return REAL; 

function LIMIT ( 

VARIABLE ; in REAL; 
LIMIT^MAGNITUDE : in REAL) 
return REAL; 

function ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL; 

function MIN ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL; 

function MAX ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL; 

function MAX3 ( 

LEFT : in REAL; 

MID : in REAL; 

RIGHT : in REAL) 
return REAL; 
end MATH; 



-- Below are instantiations of generic packages 

with HATH; use MATH; 
with Text_io; use Text_io; 

package REAL_IO is new Float_io(REAL); 

with Text_io; 

package LONG_IO is new Text_io. Integer_io(long_integer); 

-- Define a package of 'glue' routines needed for REAL_MATRIX 

with Text io; use Text io; 
with REAlIiO; use REALJO; 
with HATH; use MATH; 

package REAL HATRtX_GLUE is 

function“MAGNITUOE(ELEHENT : REAL) return REAL; 
function TO_FLOAT(ELEMENT : REAL) return float; 
function FROM_FLOAT(ELEHENT : float) return REAL; 

procedure GET_ELEMEMT(FILE : in File_type; ELEMENT : out REAL); 
procedure GET_ELEMENT(ELEHENT : out REAL); 

procedure PUT ELEHENT(FILE : in File type; ELEMENT : in REAL); 
procedure PUT~ELEMENT(ELEMENT : in REAL); 

pragma INLINE (MAGNITUDE, TO_FLOAT, FROM_FLOAT); 
end REAL_MATRIX_GLUE; 

package body REAL_MATRIX_GLUE is 

function MAGNITUDE (ELEMENT : REAL) return REAL is 
begin 

return abs(ELEHENT); 
end MAGNITUDE; 

function TO_FLOAT (ELEMENT : REAL) return float is 
begin 

return f loat(ELEHENT); 
end TO_FLOAT; 

function FROM_FLOAT (ELEMENT : float) return REAL is 
begin 

return REAL(ELEHENT); 
end FR0M_FL0AT; 

procedure GET_ELEHENT(FILE : in File_type; ELEMENT : out REAL) is 
begin 

Get(FILE, ELEHENT); 
end GET_ELEMENT; 

procedure GET_ELEHENT(ELEMENT : out REAL) is 
begin 

Get(ELEMENT); 
end GET_ELEMENT; ‘ 

procedure PUT_ELEMENT(FILE : in File_type; ELEMENT ; in REAL) is 
begin 

Put(FILE, ELEMENT); 

New_line(FILE); 
end PUT_ELEHENT; 

procedure PUT_ELEHENT(ELEHENT : in REAL) is 
begin 

Put(ELEHENT); 

New line; 
end PUT'elEMENT; 
end REAL_MATRIX_GLUE; 

-- Instantiate the MATRIX_AND_VECTOR package for type REAL using 
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-- the REAL_MATRIX_GLUE routines 

with MATRIX AND.VECTOR; 
with MATH; use MATH; 

with REAL_MATRIX_GLUE; use REAL_MATRIX GLUE; 
package REAL_MATRIX is new MATRIX_AND VECTOR (REAL); 



-- Math Package Body 



with MATH_LIB; use MATH_LIB; 
package body MATH is 

RANDOM_NUMBER : REAL := 0,5; •- Default seed value 
EXTRA GAUSS : boolean := false; 

GAUSSJ : REAL; 

GAUSS_2 : REAL; 

GAUSS_MAG : REAL; 

GAUSS FACTOR : REAL; 



function SIGN ( 

ARG : in REAL) 
return REAL is 
begin 

if ARG > 0.0 then 
return 1.0; 
elsif ARG < 0.0 then 
return -1.0; 

else 

return 0.0; 
end if; 
end SIGN; 



function SIN ( 

ARG : in REAL) 
return REAL is 
begin 

return REAL(SIN(f loat(ARG)) ); 
end SIN; 



f unction COS ( 

ARG : in REAL) 
return REAL is 
begin 

return REAL(COS(f loat(ARG))); 
end COS; 



function TAN ( 

ARG : in REAL) 
return REAL is 
begin 

return SIN(ARG) / COS(ARG); 
end TAN; 



function ASIN ( 

ARG : in REAL) 
return REAL is 
begin 

if ARG = 1.0 then 
return 0.5*PI; 

else 

return REAL(ATAN(f loatCARG / SQRT(1.0 - ARG*ARG)))); 
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end if; 
end ASIN; 



function ACOS ( 

ARG : in REAL) 
return REAL is 
begin 

if ARG = 0.0 then 
return 0.5*PI; 

else 

return REAL(ATAN(f loat(SQRT(1 .0 - ARG*ARG) / ARG))); 
end if; 
end ACOS; 



function ATAN ( 

ARG : in REAL) 
return REAL is 
begin 

return REAL(ATAN(f loat(ARG))); 
end ATAN; 



function ATAN2 ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL is 

RESULT : REAL; 
begin 

if RIGHT /= 0.0 then 

RESULT := ATAN(LEFT / RIGHT); 
elsif LEFT > 0.0 then 
return 0.5*PI; 

else 

return -0.5*PI; 
end if; 

if RIGHT < 0.0 then 
if LEFT > 0.0 then 

RESULT := RESULT + PI; 

else 

RESULT := RESULT - PI; 
end if; 
end if; 

return RESULT; 
end ATAN2; 



function EXP ( 

ARG : in REAL) 
return REAL is 
begin 

return REAL(EXP(f loat(ARG))); 
end EXP; 



function SORT ( 

ARG : in REAL) 
return REAL is 
begin 

if ARG < 0.0 then 

raise Const raint^error; 
end if; 

return REAL(SQRT(f loat(ARG))); 
end SORT; 
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function LN ( 

ARG : in REAL) 
return REAL is 
begin 

return REAL(LN(f loat(ARG))); 
end LN; 



f unction LOG ( 

ARG : in REAL) 
return REAL is 
begin 

return LN(ARG) / LNC10.0); 
end LOG; 



procedure SEED_RAN ( 

ARG : in REAL) is 
begin 

RANDOM NUMBER ;= abs(ARG); 
end SEED RAN; 



function RAN 

return REAL is 



-- Notes on this function: Using the default seed (0.5) - 

-- Using a multiplier of 257.874562956093 a pattern of dots created 
-- on an EGA (640x350) screen by randomly generating x and y point 
-- coordinates had visible line patterns. 

-- Using a multiplier of 19257.874562956093 the random number sequence 
-- began repeating after about 2 million calls. 

-- Using the current value (1257.874562956093) the sequence will 
go at least 4 million calls without repeating & appears random on 
-- the EGA. 



begin 

RANDOM_NUMBER := (RANDOM_NUMBER + 0.18568271032) * 1257.874562956093; 
RANDOM_NUMBER := RANDOM_NUMBER - REAL( integer (RANDOM_NUMBER -0.5)); 
return RANDOM_NUMBER; 
end RAN; 



function GAUSSIAN ( 

MEAN : in REAL; 

STD^DEVIATION : in REAL) 
return REAL is 
begin 

if not EXTRA_GAUSS then 
loop 

GAUSSJ := 2.0 * RAN - 1.0; 

GAUSS_2 := 2.0 * RAN - 1.0; 

GAUSS_MAG := GAUSS_1**2 + GAUSS_2**2; 
exit when GAUSS_MAG < 1.0; 
end loop; 

GAUSS_FACTOR := SQRT(-2.0 * LN(GAUSS_MAG) / GAUSS_MAG); 
GAUSS_1 := MEAN + STD_DEVIATION * GAUSSJ * GAUSS_F ACTOR; 

EXTRA_GAUSS := true; 
return GAUSSJ; 

else 

GAUSSJ := MEAN + STD_DEVIATION * GAUSSJ * GAUSS_FACTOR; 
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EXTRA^GAUSS := false; 
return GAUSS_2; 
end if; 
end GAUSS IAN ; 



function LIMIT ( 

VARIABLE : in REAL; 

LOWER_LIMIT : in REAL; 

UPPER^LIMIT : in REAL) 
return REAL is 
begin 

if VARIABLE > UPPER^LIMIT then 
return UPPER LIMIT; 
elsif VARIABLE <’lOWER LIMIT then 
return LOWER_LIMIt7 

else 

return VARIABLE; 
end if; 
end LIMIT; 



function LIMIT ( 

VARIABLE : in REAL; 

LIMIT^MAGNITUDE : in REAL) 
return REAL is 
begin 

if VARIABLE > LIMIT_MAGNITUDE then 
return L I M I T_MAGN I TUDE ; 
elsif VARIABLE < -LIMIT_MAGNITUDE then 
return -LIMIT^MAGNITUDE; 

else 

return VARIABLE; 
end if; 
end LIMIT; 



function ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL is 

SIGN : REAL; 
begin 

if LEFT = 0.0 then 
return 0.0; 

elsif RIGHT = REAL( integer(RIGHT)) and LEFT < 0.0 then 

if RIGHT = 2.0 * REAL( integer(RIGHT / 2.0)) then -- Even power 
SIGN := 1.0; 

else -- Odd power 
SIGN := -1.0; 
end if; 

return SIGN * EXP(RIGHT * LN(abs(LEFT))); 

else 

return EXP(RIGHT ♦ LN(LEFT)); 
end if; 
end •'**”; 



function MIN ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL is 
begin 

if LEFT < RIGHT then 
return LEFT; 
else • 

return RIGHT; 
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end if; 
end HIN; 



function MAX ( 

LEFT : in REAL; 

RIGHT : in REAL) 
return REAL is 
begin 

if LEFT > RIGHT then 
return LEFT; 

else 

return RIGHT; 
end if; 
end HAX; 



function MAX3 ( 

LEFT : in REAL; 

MID : in REAL; 

RIGHT : in REAL) 
return REAL is 
begin 

return MAX(MAX(LEFT, MID), RIGHT); 
end MAX3; 
end MATH; 



** Model Data Types Package Specification 

-- This package contains the data types for application specific variables 
-- that need to be defined in several places in the simulation 



with MATH; use MATH; 

with REAL_MATRIX; use REAL_MATRIX; 

package MOOEL^TYPES is 

type YES_NO_TYPE is (NO, YES); 

type SUPER_VECTOR is array (positive range <>) of VECTORd . .3); 
type THREED is array (positive range <>, positive range <>, positive 
range <>) of REAL; 

type IR_PHASE_TYPE is (NON_ACTIVE, IR_SEARCH, IR_ACQUISITION, IR_TRACK); 

type RF_PHASE_TYPE1 is (MIDCOURSE, HPRF_ACQUISTION,MPRF_ACQUISTION, TERMINAL); 
type Rf“pHASE_TYPE 2 is (NON_ACTI VE ,MIDCOURSE,X_BAND_ACQUISITION , 

X_BAND_TRACK , K_BAND_ACQU I S I T I ON , K_BAND_TRACK ) ; 

type AIRCRAFT_TYPE is (F_14, FJ5, FJ8,SIXD0F); 
type LAUNCHER_TYPE is (RAIL, EJECT); 

type SSJ ECM_TYPE is (NONE, REPEATER, BARRAGE_NOISE); 
type SOJ”eCM_TYPE is (BARRAGE NOISE ,RSN,PRN); 
type SSJ ECM TECHNIQUE is array (1..2) of SSJ_ECM_TYPE; 
type SOJ*ECM"tECHNIQUE is array (1..2) of SOJ_ECM_TYPE; 

type GUIDANCE_PHASE_TYPE is (NULL_COMMANDS, HOLD^PATH, LOAD_BIAS, 
VARIABLE^ARC, ALT ITUDE^HOLD, TURN-DOWN, TERmTnAL); 

type GUID_SELECTION_TYPE is (LAC_CUE,TGT J ,TGT_2,S0Jj , S0J^2); 

type PROPUL_TYPE is (BOOST,COAST, FLAME OUT); 

type INT_GUIDANCE_TYPE is (NON^MANEUVERING, PURSUIT); 

type TGT_IR_SIZE_TYPE is (SMALL, MEDIUM, LARGE); 
type MANEUVER_TYPE is (NONE, TURN, WEAVE); 

type MANEUVER_START_TYPE is (FLIGHT_TIME,TIME_REMAINING,RANGE TO_GO); 
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type STOP_CONDITION_TYPE is (AZ_GIMBAL,EL_GIMBAL,TOTAL_GIMBAL,RANGE_RATE, 
CROSSOVER , H I T^GROUND , MAX_T I ME_OF_F LIGHT); 

type SETUP_VALUES_TYPE is 
record 

FRAME TIME : REAL; 

LOG_INTERVAL : INTEGER; 

INT_ALTITUDE IC : REAL; 

INT_MACH_IC 7 REAL; 

INT_LEAD_ANGLE_IC : REAL; 

LAUNCH_TYPE : LAUNCHER_TYPE; 

TGT_ALTITUDE_IC : VECTORd . .4); 

SOJ_ANGLE_IC : VECTOR( 1 . .2); 

TGT_MACH_IC : REAL; 

TGT_ASPECT_IC ; REAL; 

TGT2_ANGLEJC : REAL; 

TGT_RANGE_fc : VECTORd . .4); 

TGT_RCS_IC : vectord.,2); 

TGT_TURN_G_IC : REAL; 

TGT_TURNON_VALUE IC : REAL; 

TGT_BUILDUP_TIMEJC : REAL; 

TGT_TURN_ANG_IC : REAL; 

TGT_WEAVE_PER_IC : REAL; 

TGT TWO IC ; YES_NO_TYPE; 

SOj'oNE'iC : YES_NO TYPE; 

SOj'tWOJC : YES_NO”tYPE; 

TGT_ECM_POWER_IC: VECTORd, ,4); 

TGT_ECM_TECH_IC: SSJ_ECM_TECHNIOUE; 

SOJ^ECM TECH_IC: SOJ ECM^TECHNIOUE; 

INT_TYPE_IC : AIRCRAFT^TYPE; 

LOG DATA : YES_NO_TYPE; 

INT^GUIDANCE : INT_GUIDANCE_TYPE; 

TGT1 IR SIZE : TGT_IR_SIZE_TYPE; 

TGT2Jr"sIZE : TGT_IR_SIZE TYPE; 

MANEUVER_KIND : MANEUVER TYPE; 

TURN^ON^PARAMETER : MANEUVER_START_TYPE; 

OUTPUT_FILE : stringd , ,30); 
end record; 

type MSL_LOG_DATA_TYPE is 
record 

REAL^VALUE : VECTORd . .34); 

GUIOANCE_PHASE : GUIDANCE_PHASE_TYPE; 

RF_PHASE_1 : RF PHASE TYPE1; 

RF PHASE_2 : RF>HASE"tyPE2; 

IR'pHASE : IR_PHASE_TYPE; 

RADOME_OFF : boolean; 

PROPULS I ON^PHASE : PROPUL_TYPE; 
end record; 

pragma PACK(MSL_LOG_DATA_TYPE); 

type LAUNCHER_LOG_DATA_TYPE is 
record 

REAL^VALUE : VECTORd,, 3); 
end record; 

pragma PACK( LAUNCHER_LOG_DAT A_T YPE ) ; 

type TARGET_LOG_DATA_TYPE is 
record 

REAL^VALUE : VECTORd., 9); 
end record; 

pragma PACK(TARGET_LOG_DATA_TYPE); 

type LOG_RECORD_TYPE is 
record 
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MISSILE DATA : MSL LOG_DATA_TYPE; 

LAUNCHER_DATA : LAUNCHER LOG_DATA TYPE; 

TARGET_DATA : TARGET_LOG“dATA_TYPE; 

end record; 

pragma PACK(LOG_RECORD_TYPE); 

RF_MC®E : array (RF_PHASE_TYPE2) of stnng(1..9) := ( 
"Inactive ", 

"Hidcourse", 

"XBand Acq", 

"XBand Trk", 

"XBand Acq", 

"XBand Trk"); 

IR_MOOE : array (IR_PHASE_TYPE) of string(1..9) := ( 
"Inactive ", 

"IR Search", 

"IR Acq ", 

"IR Track "); 

PROPULSION_MCX)E : array (PROPUL_TYPE) of string(1..9) := ( 
"Boost” ", 

"Coast "); 

GUIDANCE_MOOE : array (GUIDANCE_PHASE_TYPE) of string(1..9> 
"Null Cmds", 

"Hold Path", 

"Load Bias", 

"Var. Arc ", 

"Alt. Hold", 

"Turn Down", 

"Terminal "); 

STOP REASON : array (STOP CONDITION TYPE) of string(1..9) : 
”'Az Gimbal", 

"El Gimbal", 

"Tot Gimb.", 

"Rangerate", 

"Crossover", 

"Hit Grnd.", 

"Max TOF "); 

end MODEL_TYPES; 
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APPENDIX D 



PROBLEM SPACE OBJECT SOURCE CODE LISTINGS 



-- Launcher package 

-- This package contains the procedure calls which will initialize, 
-- setup, computes and get and put the missile state vector as well 
-- as calculating the necessary parameters to calculate the state 
-- vector. 



with MATH; use MATH; 

with REAL^MATRIX; use REAL_MATRIX; 

with MOOEL_TYPES; use MOOEL_TYPES; 

package LAUNCHER is 

procedure SETUPCLAC GUID_IN: in INT GUIDANCE_TYPE; 

lead-in", 

LAC_MACH_IN, 

LAC_ALT IN: in REAL; 

LAC^TYPE^IN: in AIRCRAFT^TYPE); 

procedure PUT_STATES( STATES: in VECTOR); 

function 6ET_DERIVATIVES return VECTOR; 

function GET_STATES return VECTOR; 

function LOG^DATA return LAUNCHER_LOG_DATA_TYPE; 

function POLECI: in INTEGER) return REAL; 

procedure INITIALIZE; 

function LAC^POS return VECTOR; 

procedure MSL INITCLAC VEL,LAC POSITION: out VECTOR; LAC_GAIN, 

" LAC_TRANS_PWR, LAC_BEAMWIDTH : out REAL); 



procedure COMPUTE; 
end LAUNCHER; 



-- Launcher package 

-- This package contains the procedure calls which will initialize, 
-- setup, computes and get and put the missile state vector as well 
-- as computing the necessary parameters to calculate the state 
-- vector. 



with MOOEL^TYPES; use MODEL TYPES; 
with MATH; use MATH; 
with ENVIRONMENT; 

with REAL MATRIX; use REAL MATRIX; 
with MISSTlE; 
with TARGETS; 

WITH TEXTJO;WITH REAL_IO; 
package body LAUNCHER is 
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LAC GUID 
LEAD 

LAC HACH 

LAC“VEL_NED 

LAC_POS_NED 

LOGGED DATA 

DERIVATIVES 

STATE 

LAC TYPE 



INT^GUIDANCE^TYPE; -- Launch Aircraft Guidance Mode 
REAL; -- Launch Aircraft Lead Angle 

REAL; -• Launch Aircraft Mach 

VECTOR (1..3); -- Launch Aircraft Velocity Vector 

VECTOR (1..3); -- Launch Aircraft Position Vector 

LAUNCHER_LOG DATA TYPE ; -- Output Vector 

VECT0R(1.,3)7 
VECTOR(1..3); -- 

AIRCRAFT_TYPE; 



procedure SETUP(LAC_GUID_IN: in INT_GUIDANCE_TYPE; 

LEAD_IN, 

LAC_MACH_IN, 

LAC_ALT_IN: in REAL; 

LAC_TYPE_IN: in AIRCRAFT TYPE) is 



begin 

LAC GUID := LAC_GUID_IN; -- Launch Aircraft Guidance Mode 
LEAD := LEAD_IN; -- Launch Aircraft Lead Angle (rad) 

LAC_MACH := LAC_MACH_IN; -- Launch Aircraft Mach 
LAC_POS_NED(3):= -LAC_ALT_IN; -- Launch aircraft altitude (feet) 
LAC”tYPE : =LAC_TYPE_I N; 
end SETUP; 



procedure PUT_STATES(STATES: in VECTOR) is 
begin 

LAC POS NED:=STATES(1..3); 
end PUT'staTES; 



function GET_DERI VAT IVES return VECTOR is 
begin 

DERIVATIVES(1..3):=LAC_VEL NED; 
return DERIVATIVES; 
end GET_DERIVATIVES; 



function GET_STATES return VECTOR is 
begin 

STATEd . .3):=LAC_POS_NED; 
return STATE; 
end GET_STATES; 



function LOG^DATA return LAUNCHER_LOG_DATA_TYPE is 
begin 

LOGGED_DATA.REAL VALUE(1):= LAC POS NED(1); 
LOGGED DATA . RE AL'vALUE ( 2 ) : = L AC>OS"nED ( 2 ) ; 
LOGGED^DAT A . RE AL”vALUE ( 3 ) : = - LAC“pOS“nED ( 3 ) ; 
return~LOGGED_DATA; 
end LOG^DATA; 



function POLEd: in INTEGER) return REAL is 

TGT_POS_NED : SUPER^VECTORd . .3); 

begin 

TGT POS NED:=TARGETS.TGT POS; 
return MAGNITUOE(TGT POs"nED(I) - LAC_POS_NED); 
end POLE; 



function LAC_POS return VECTOR is 
begin 

return LAC_POS_NED; 
end LAC POS; 



144 



procedure INITIALIZE is 
VSS: REAL; 

begin 

VSS : =ENVI RONMENT . SPEED_OF_SOUND ( - LAC POS_NED (3 ) ) ; 
LAC VEL_NED(1):=LAC MACH*VSS*COS(LEAD); 

LAC^VEL NED ( 2 ) : =LAC“mACH*VSS*S I N(LEAD); 
LAC'*VEL”nED(3);= 0.0; 

LAC"P0sInED(1):= 0.0; 

LAC_POS_NED(2):= 0.0; 
end INITIALIZE; 



procedure MSL_INIT<LAC_VEL,LAC_POSITION : out VECTOR; LAC_GAIN, 
LAC_TRANS_PWR, LAC_BEAMWIDTH: out REAL) is 

begin 

LAC_VEL:=LAC VEL_NED; 

LAC_POS I T I OnT=LAC_POS_NED ; 



case LAC^TYPE is 
when F 14 => 



LAC TRANS PWR 


: = 


32.0; 


-- dbw 


LAC^GAIN 


: = 


36.5; 


-- db 


LAC^BEAMWIDTH 


; = 


2.2; 


• - deg 


when F 15 => 


LAC TRANS PWR 


: = 


26.0; 


dbw 


LAC GAIN " 


; = 


36.0; 


-- db 


LAC BEAMWIDTH 


: = 


2.3; 


-- deg 


when F 18 => 


LAC TRANS PWR 


: = 


25.0; 


-- dbw 


lac'gain 


: = 


33.0; 


- db 


LAC BEAMWIDTH 


: = 


3.4; 


-- deg 


when others => 


use for 6dof comparison 




LAC TRANS PWR 


: = 


37.0; 


-- dbw 


lac_gain 


: = 


37.0; 


-- db 



-- not an actual value will replace once found 



LAC^BEAMWIDTH := 3.0; -- deg 

end case; 
end MSLJNIT; 



procedure COMPUTE is 
DIFF : VECTOR(1..3); 

ANGLE : REAL; 

LAC_VEL : REAL; 

TGT^POS^NED : SUPER_VECTOR( 1 . .3); 
begin 

if LAC GUID = PURSUIT then 

TGT>OS_NED := TARGETS.TGT^POS; 
DIFF: =TGT_POS_NED ( 1) - LAC_POS N ED ; 

ANGLE: = AT AN ( D I F F ( 2 ) /D I F F < 1) )7 
LAC VEL:=MAGNITUDE(LAC_VEL_NED); 

L AC ”VE L_N ED ( 1) : =L AC_VE L*COS (ANGLE); 
LAC_VEL_NED ( 2 ) : =LAC_VEL*S I N ( ANGLE ) ; 
end if; 
end COMPUTE; 

end LAUNCHER; 



-- Missile package 

-- This package contains the procedure calls which will initialize, 
-- setup, confute and get and put the missile state vector, as well 
-- as calculating the necessary parameters to calculate the state 
-- vector. 
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with HATH; use HATH; 

with REAL_MATRIX; use REAL_MATRIX; 

with MOOEL^TYPES; use MOOEL^TYPES; 

package MISSILE is 

ID STRING : string( 1 . .30) := "NPS Missile Flight Simulation 
RUNTIME_TITLE : stringd . .42) : = 

" NPS Simulation Runtime Display 

OUTFILE : stringd. .30) := “SIM. OUT 
DATFILE : stringd.. 30) := "SIM. DAT 
MAIN_MENU_TITLE : Stringd.. 60) : = 

"NPS 3-DOF Missile Flight Simulation Main Menu "; 

TITLE_$CREEN_LINE : stringd.. 60) : = 

" NPS 3-DOF Air-to-Air Missile Flight Simulation "; 

IS ACTIVE : boolean := true; -- If true this is an active missile 

in LAUNCHER_TYPE; 
in VECTOR; 

in TGT_IR_SIZE TYPE; 
in TGTJR_SIZeItYPE; 
in YES_NO_TYPE; 
in YES_NO_TYPE; 
in YES_NO_TYPE; 
in VECTOR; 

in SSJ_ECM_TECHNIQUE; 
in SOJ_ECM_TECHNIQUE); 

procedure INITIALIZE; 
procedure COMPUTE; 

procedure PUT_STATES(STATE: in VECTOR); 

procedure MANEUVER VALUE (TURN_ON_PARAMETER: in MANEUVER_START_TYPE; 

MANEUVER_START~VALUE: out REAL); 

function GET_DERIVATIVES return VECTOR; 

function GET_STATES return VECTOR; 

function LOG^DATA return MSL_LOG_DATA_TYPE; 

function END_CONDITIONS_MET return boolean; 

procedure TERMINAL_CONDITIONS (A_P0LE OUT, MISS_DISTANCE_OUT, 

TIMeJ6f_FLIGHT, altitude, RDOT: out REAL; 
STOP REASON_OUT: out STOP_CONDIT ION TYPE); 



procedure SETUP(LAUNCH_TYPE_IN: 
RCS: 

TGT1 IR SIGNATURE: 
TGTZJrIsIGNATURE: 
TGT_TWO: 

SOJ_,ONE : 

SOJ_TWO: 

ECM_POWER: 

SSJ_ECM TECH: 

SOJ ECM'tECH: 



end MISSILE; 



-- Missile package body 

-- This package contains the procedure calls which will initialize, 
-- setup, compute and get and put the missile state vector, as well 
-- as computing the necessary parameters to calculate the state 
-- vector. 



use MATH; 



with HATH 
with MODEL_TYPES; 
with REAL_MATRIX; 
with LAUNCHER; 
with TARGETS; 
with AIRFRAME; 
with AUTOPILOT; 
with ENVIRONMENT; 



use MOOEL_TYPES; 
use REAL_MATRIX; 
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with GUIDANCE; 
with INTEGRATION; 
with KINEMATICS; 
with RF SEEKER; 
with IR“sEEKER; 



package body MISSILE is 



MSL_ACC NED 
MSL_VEL~NED 

msl_pos"ned 

LAUNCH TYPE 
NTGTS " 
NSOJS 
TGTTYP 



VECTOR(1..3); 
VECT0R(1.,3); 
VECTOR(1,,3); 
LAUNCHER TYPE; 
INTEGER;" 
INTEGER; 
INTEGER; 



BORE_SIGHT_ERROR:VECTOR(1..4);-- Bore sight errors 



-- Missile acceleration vector 
-- Missile velocity vector 
-- Missile position vector 

Number of targets 

Number of active stand off jamners 

Type of target (skin, range deception, etc.) 



MSL DATA 

derTv 

STATE OUT 
TGT_VEL_NED 
TGT_POS_NED 
IR_ACQ_RANGE 
ANGLE OF ATTACK 
COEF^DRAG 
MSL_MASS 
THRUST 
MSL_VEL 

MSL_HEADING_A2 

PITCH 

RANGE_VEC_NED 
OMEGA NED 
TGT_RANGE 
RDOT 

TIME_TO_GO 
RANGE_VEC_BOO 
GMB_ANG_SKR 

msl"phase 

RF_PHASE 
IR_PHASE 
PROPULS I ON_PHASE 
RADOME OFF 
F pole" 

a"pole 

RANGE TGT LAC 



MSL_LOG_DATA_TYPE; •• Missile object output record 
VECTORd . .6); -- Derivative array vector 
VECTORd . .6); -- State variable output vector 
VECTORd.. 3); -- Target velocity vectors, ft/sec 

SUPER_VECTOR(1 . .4); -- Target position vectors, ft 

REAL; -- Range at which IR acquisition is enabled 
: VECTORd.. 3); --Missile body angle vector 
REAL; -- Missile drag coefficient 
REAL; -- Missile mass 
REAL; Missile thrust, lbs 
REAL; -- Missile velocity, ft/sec 
REAL; -- Missile azimuth heading angle, rad 
REAL; -- Missile pitch angle, rad 

SUPER_VECTOR(1 . .4); -- Missile to target range vectors 



Missile to target LOS rates 

Missile to target ranges, ft 
-- Missile to target range rates, fps 
Estimated time to go in flight, sec 
-Missile to target one range vector, 
VECTORd.. 3); -- Seeker gimbal angle vector, rad 

RF_PHASE_TYPE1; -- Missile phase of flight 

-- Phase that RF is in 
-- IR phase 



VECTORd.. 3); 
VECTORd.. 4); 
VECTORd.. 2); 
REAL; 

SUPER_VECTORd..4); 



RF_PHASE_TYPE2; 

IR_PHASE TYPE; 

PROPUL_TYPE; 
boolean; 

REAL; 

REAL; 

VECTORd.. 4); -- Range from the targets to the 
launch aircraft 



-- Radome off flag 



SNR 

MSL_AXIAL_ACC : 
OMEGA^SKR 
GUID^PHASE : 

ACC COM^BOO 
ACC"aCH boo : 

Q " " : 

MSL_MACH : 

STOP_REASON : 
MISS DISTANCE_NED: 
MISS"dISTANCE : 
RDOT^OLD : 

TIME_TO GO OLD: 
ALTITUDE OLD : 



REAL; -- Signal to noise ratio, d8 

REAL; -- Missile axial acceleration in body axis 

VECTORd.. 3); •• Missile to targets LOS rate vectors 

GUIDANCE_PHASE_TYPE; •• Guidance phase 

VECT0RC2. .3); -- Commanded acceleration vector 

VECTORd.. 3); -- Achieved acceleration vector- body 

REAL; •• Dynamic pressure 

REAL; 

STOP_CONDITION TYPE; -- Reason simulation stopped 
VECTOR d.. 3); 

REAL; 

REAL; -- Range rate value from prior pass 
REAL; 

REAL; 



procedure SETUP(LAUNCH_TYPE JN: 
RCS: 

TGT1_IR SIGNATURE: 
TGT2Jr3sIGNATURE: 
TGT two" 

S0J"0NE: 

SOJ^TWO: 

ECM^POWER: 

SSj"eCM TECH: 



in LAUNCHER_TYPE; 
in VECTOR; 

in TGT IR_SIZE_TYPE; 
in TGTJR_SIZE_TYPE; 
in YES NO TYPE; 
in YES"N0 "tYPE; 
in YES_NO TYPE; 
in vector! 

in SSJ ECM_TECHNIQUE; 
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in SOJ_ECM_TECHNIQUE) is 



SOJ ECH TECH: 

TEMP^ECM^POWER: ”VEC*T0R(1 , .4); 

begin 

LAUNCH_TYPE : =LAUNCH_T YPE_I N ; 

TEMP_ECM_POWER : =ECM_POWER; 
if TGT TWO = NO then 
NTGTS:=1; 

else 

NTGTS:=2; 
end if; 

if SOJ_ONE = NO and SOJ TWO = NO then 
NSOJS:=0; 

elsif SOJ ONE = YES and SOJ_TWO = NO then 

NSOJsT=1; 

elsif SOJ^ONE = NO and SOJ^TWO = YES then 

NS0Js7=1; 

TEMP_ECM_POWER(3):=TEMP ECM_POWER(4); 
elsif SOJ_ONE = YES and SOJ”tWO = YES then 
NSOJS:=3; 
end if; 

RF SEEKER. SETUP(NTGTS,NSOJS,RCS,TEMP_ECM_POWER,SSJ_ECM_TECH, 
SOJ_ECM TECH); 

IR SEEKER. SETUP(TGT1 IR SIGNATURE, TGT2_IR_S I GNATURE); 

K I NEMAT I CS . SETUP( NTGTS, NSO JS ) ; 
end SETUP; 



procedure INITIALIZE is 
GAIN : REAL; 

POWER : REAL; 

BEAHWIDTH REAL; 

begin 

HSL HASS : =400.0; 

COE F_DRAG: =0.75 ; 

THRUST:=0.0; 

ANGLE OF ATTACK:=(0. 0,0. 0,0.0); 

ACC ACH BOO := (0. 0,0. 0,0.0); 

PITCH := 0.0; 

MSL_PHASE:=MIDCOURSE; 

RF_PHASE:=NON_ACTIVE; 

IR_PHASE:=NON_ACTIVE; 

PROPULS I ON_PHASE : =COAST ; 

RADOME_OFF:=false; 

Q: =2600.0; 

IS_ACTIVE:=FALSE; 
for I in 1 . .4 loop 

RANGE_TGT LAC( I ) : =LAUNCHER . POLE ( I ) ; 

TGT^RANGEI I ) : =RANGE_TGT_LAC( I ) ; 
end loop; 

A POLE:=RANGE TGT LAC(1); 

SNR:=1.0; 

TIME_TO_GO:=500.0; 

TARGETS . TGT_DATA( TGT_VEL_NED , TGT_POS_NED ) ; 

LAUNCHER. MSLJNIT(MSL_VEL NED, HSL POS^NED, GAIN, POWER, 

BEAMwIdTH); 

GUIDANCE. INITIALIZE(-MSL POS NED(3),*TGT POS NED(1)(3), 
TGT“pOS"nED(1),TGT VEL NED); 

AIRFRAME.INITIALIZE; 

AUTOPILOT.INITIALIZE; 

RF_SEEKER.INITIALIZE(GAIN,POWER,BEAHWIDTH); 

IR_SEEKER.INITIALIZE(-TGT_P0S_NED(1)(3),-MSL_P0S_NED(3),IR_ACQ_RANGE); 
MSL_HEADING_AZ:=ATAN(MSL_VEL_NED(2)/MSL_VEL_NED(1)); 
if LAUNCH_TYPE = EJECT then 

MSL_VEL_NED(3):=MSL_VEL_NED(3)+20.0; 
end if; 

end INITIALIZE; 
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prcx:eckjre COMPUTE 
EIB 
EIS 
EBI 

THETA^SKR 
PS I SKR 



is 

MATRIX(1.,3,1..3); 

MATRIX(1..3,1..3); 

MATRIX(1..3,1..3); 

REAL; 

REAL; 



begin -- COMPUTE 

T I ME_TO_GO_OLD : =T I ME_TO_GO; 
RDOT“oLD:=RDOT(1); 



-- Inertial to body direction cos mat, 
-- Inertial to seeker dir, cos matrix 
-- Transform of EIB 
-- Seeker pitch angle, rad 
-- Seeker yaw angle, rad 



TARGETS, TGT DATA(TGT VEL NED,TGT_POS_NED); 

K I NEMAT I CS , COMPUTE (MSL_POS_NED , MSL_VEL_NED , TGT_VEL_NED , 

TGT POS^NED, RANGE VEC^NED, OMEGA NED, TGT_RANGE, ROOT, 
MISS_DISTANCE NEDTtIME T0_G0,MI SS_D I STANCE ); 



for I in 1,,NTGTS loop 

RANGE_TGT_LAC( I ) : ^LAUNCHER , POLE ( I ) ; 
end loop; 



for I in 1,. NSOJS loop 

RANGE_TGT_LAC( I +2 ) : =LAUNCHER , POLE ( I +2 ) ; 
end loop; 



RF_SEEKER.DETECTION(TGT_RANGE,RANGE_TGT_LAC,RF_PHASE,SNR, 

tgttyp,bore_sightJerror);“ 



case RF_PHASE is 

when K_BAND_ACQUISITION => 
if not IS_ACTIVE then 

A_P0LE:=RANGE_TGT_LAC(1); 

IS_ACTIVE:=true; 
end if; 

when others => 
null; 
end case; 

if TGT_RANGE(1) < IR_ACQ RANGE then 
RADOME OFF;=TRUE; 

I R^SEEKER , DETECT I ON ( TGT_RANGE ( 1 ) , I R^PHASE ) ; 
end if; 

KINEMATICS,DIR_C0S((MSL_HEADING_AZ+ANGLE_0F_ATTACK(3) ), PITCH, EIB); 

for I in 1 , .NTGTS loop 

RANGE_VEC_BOO( I ) :=EIB*RANGE_VEC_NED( I); 
end loop; 

for I in 1,. NSOJS loop 

RANGE_VEC_BOO ( I +2 ) : =E I B*RANGE_VE C_NED ( I +2 ) ; 
end loop; 

RF_SEEKER,GIMBAL(RANGE_VEC_BOO,GMB_ANG_SKR); 

PSI_SICR:=ANGLE_0F_ATTACK(3)+MSL_HEADING_AZ+GMB_ANG_SKR(3); 

THETA SKR:=PITCH+GMB ANG SKR(2); 
KINEMATICS,DIR_COS(PSI_siCR,THETA_SKR,EIS); 

OMEGA_SKR:=EIS*OMEGA NED; 

GUIDANCE. C0MPUTE(TIME_T0_G0,-MSL_P0S_NED(3),-MSL_VEL_NED(3), 

MSL VEL, ACC ACH_B00d ), PITCH, TGT RANGE(1 ),RDOT(1 ), 
GMB"aNG_SICr70MEGA SKR , GU I D_PHASe7aCC_COM_BOO ) ; 

AUTOPILOT. C0MPUTE(ACC“C0M_B00, ACC ACH B00(2.,3)); 
AUTOPILOT,UPDATE_DIFF“eOS; 

KINEMATICS, MACH_NO(-MSL_POS_NED(3), MSL_VEL_NED, MSL_MACH); 

AIRFRAME. THRUST(MSL_MASS, THRUST, PROPULSION^PHASE); 

AIRFRAME. AEROCMSL MACH,Q,RADOME_OFF, 

COfF DRAG, ANGLE OF ATTACK); 

K I NEMAT I CS , EOM(MSL JPOS_NED , MSL“veI_NED , ANGLE_OF_ATTACK , 
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COE F_DRAG , HSL_MASS , T HRUST , ACC_ACH_BOO ( 1 ) , 
HSL_VEL,MSL_HEADING AZ, PITCH, 0); 

EBI TRANSPOSE (E IB); 

MSL_ACC_NEO ;= EBI • ACC ACH_BOO; 
MSL_ACC_NED(3) := MSL ACC HED(3) + G; 
end COMPUTE; 



procedure PUT_STATES(STATE: in VECTOR) is 

begin 

ALTITU0E_0LD:=-MSL_P0S_NED<3); 

MSL_VEL NED:=STATE(1..3); 
MSL_P0S~NE0:=STATE(4. .6); 
end PUT STATES; 



procedure MANEUVER VALUE(TURN ON PARAMETER: in MANEUVER_START_TYPE; 

MANEUVER_START~VALUE: out REAL) is 

begin 

if TURN ON PARAMETER = FLIGHT_TIME then 

MANEUVER_START_VALUE:=ENVIRONMENT.Time; 
elsif TURN_ON_PARAMETER * TIME_REHAINING then 
MANEUVER_START_VALUE:=TIME TO GO; 
elsif TURN_ON_PARAMETER = RANGE^T^^O then 

MANEUVER_START_VALUE:=TGT_RANGE(1) / FEET_PER_NMI ; 
end if; 

end MANEUVER_VALUE; 



function GET_DERIVATIVES return VECTOR is 
begin 

DERIV(1..3):=MSL ACC NED; 
0ERIV(4..6):=MSl3vEL“nED; 
return DERIV; ~ ~ 

end GET_DERIVATIVES; 



function GET_STATES return VECTOR is 
begin 

STATE 0UT(1..3):=MSL VEL NED; 
STATE~0UT(4 . .6) :=MSl“pOs“nED; 
return STATE OUT; ~ 

end GET_STATES; ~ 



function LOG_DATA return MSL_LOG_DATA_TYPE is 
begin 

MSL_DATA . REAL_VALUE ( 1 ) : = MSL_POS_NED( 1 ) ; 
MSL~DATA.REAL_VALUE(2):= MSL_POS NED(2); 
MSL~DATA.REAL_VALUE(3):=-MSL P0S~NED(3); 

MSL~DATA.REAL VALUE(4):=RANG| TGT LAC(1); 
MSL~DATA.REAL~VALUE(5):=MSL VEL; “ 

MSL'dATA . REAL~VALUE (6) : =MSL~HEAD I NG_AZ»RAD_TO_DEG; 
MSL~DAT A . REAL_VALUE ( 7) : =P I TCH*RAD_TO_DEG ; 

MSL'dATA . REAL^VALUE (8) : =MSL_MACH; 

MSL'dATA.REAL VALUEC9) :=TGT_RANGE< 1); 
MSL~DATA.REAL~VALUE(10):=RDOT(1); 
MSL“dATA.REAL“vALUE(11):=TIME TO GO; 
MSL”dATA.REAL~VALUE(12..14):=GMB“aNG_SKR*RAD to DEG; 
MSl"dATA.REAL~VALUE(15..16):=OMEGA_SKR(2..3)*RAD_TO_DEG; 
NSL’dATA . REAL'vALUE ( 1 7) : =-MSL VEL_NED(3 ) ; 

MSL~DATA . REAL~VALUE ( 18. . 1 9) : =ACC_C0M BOO ; 
MSL“daTA.REAL“vALUE(20. .22) :=ACC ACH~B00; 

MS l“dAT A . RE AL“vALUE ( 23 ) : =MSL_MASS ; 

MSL DATA. REAL VALUE ( 24 ):=T HRUST; 

MSL~DATA . REAL~VALUE ( 25 . . 27) : *ANGLE_OF_ATTACK*RAO_TO_OEG; 
MSL~DATA . REAL_VALUE ( 28) : =SNR ; 

MSL~DATA.REAL VALUE(29):=C0EF DRAG; 

MSL~ DAT A . RE AL~ VALUE ( 30 ) : =REAL'( TGT T YP ) ; 
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MSL DATA. REAL VALUE(31..34):=B0RE_SIGHT_ERR0R; 
MSL “data. GUI DANCE PHASE := GUID^PHASE; 
MSlIdATA.RF PHASe”1 := MSL^PHASE; 
MSL_DATA.Rf”phASE“2 := RF^PHASE; 
MSL_DATA.IR”pHASE := IR PHASE; 

MSL DATA.RADOME_OFF := RADOME_OFF; 

MSL^DATA. PROPULS I ON__PHASE := PROPULS I ON_PHASE; 
return MSL DATA; 
end LOG_DATA; ” 



function END_CONDITIONS_MET return boolean is 
begin 

if abs(GMB_ANG SKR(2)) >=0.95993 then •• Azimuth gimbal angle 

STOP^REA SON : =E L_G I MBAL ; 
return true; 

elsif abs(GMB_ANG_SKR(3)) >= 0.95993 then -- Elevation gimbal angle 
STOP_REASON : =AZ_GIMBAL ; 
return true; 

elsif abs(GMB ANG SKR(D) >= 0.95993 then -- Total gimbal angle 
STOP^RE As5n : =T 0T AL_G I MBAL ; 
return true; 

elsif ENVIRONMENT. TIME > 7.0 and RDOT(1) >= 0.0 then 

if MAGNITUDE(MSL_POS_NED) >= MAGNITUDE(TGT_POS_NED(1 )) then 
STOP_REASON : =CR0SS0VER ; 

else 

STOP_RE ASON : =RANGE_RATE ; 
end if; 
return true; 

elsif -MSL_POS NED(3) <= 0.0 then -- Altitude 

STOP_REASON : =H I T_GROUND ; 
return true; 

elsif ENVIRONMENT. TIME >= 500.0 then 
STOP_REASON : =MAX_T I ME_OF_FL I GHT ; 
return true; 

else 

return false; 
end if; 

end END CONDITIONS MET; 



procedure TERMINAL^CONDITIONS (A_POLE_OUT, MISS_DISTANCE_OUT, 

TIME OF_FLIGHT, ALTITUDE, RDOT: out REAL; 
ST0P”REAS0N_0UT: out STOP_CONDITION_TYPE) is 

TEMP: REAL; 
begin 

A POLE_OUT := A^POLE; 

RDOT:=RDOT_OLD; 

STOP_REASON OUT := STOP^REASON; 
if STOP_REASON = CROSSOVER then 

M I SS_D I ST ANCE_OUT : =M I SS_D I STANCE ; 

T I ME^OF^FL I GHT : =ENV I RONMENT . T I ME - I NTEGRAT I ON . STEPPS I ZE+ 
TIME_TO_GO_OLD; 

ALTITUDE :=ALTITUDE_OLD+((-MSL POS_NED(3)-ALTITUDE_OLD)* 

T I ME_TO_GO_OLD/ I NTEGRAT I ON . STEP_S I ZE ) ; 

else 

MISS DISTANCE_OUT:=TGT_RANGE(l); 

T I Me”0F_FL I GHT : =ENVI RONMENT . T I ME ; 

ALT I TUDE : = • MSL_POS_NED ( 3 ) ; 
end if; 

end TERMINAL^CONDITIONS; 
end MISSILE; 



Airframe procedures 

-- These procedures consist of routines for the aero 
-- and thrust models. 
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with MATH; use MATH; 

with MCOEL_TYPES; use MOOEL_TYPES; 

with REAL^MATRIX; use REAL_MATRIX; 

package AIRFRAME is 

procedure INITIALIZE; 

in REAL; 

in boolean; 
in out REAL; 
out VECTOR); 

procedure THRUST (MSL_MASS, THRUST; out REAL; 

PROPULS I ON_PHASE_OUT : out PROPUL^T YPE ) ; 



procedure AEROCMSL MACH,Q: 
RADOME OFF: 

COEF DRAG: 

ANGLE OF ATTACK OUT: 



end AIRFRAME; 



-- Airframe procedures 

-- These procedures consist of routines for the aero and 
-- thrust models. 



with MATH; use MATH; 

with MOOEL_TYPES; use MOOEL_TYPES; 

with REAL_MATRIX; use REAL_MATRIX; 

with ENVIRONMENT; 

with INTEGRATION; 

with AUTOPILOT; 

package body AIRFRAME is 



TIME_BOOSTER: constant := 4.00; 

T_BOOST_INIT: constant := 0.0; --1.0;-- time before booster ignited 

MSL MASS DRY: constant := 300.0; 

ROCKET^MASS INIT: constant := 100.0; 

PROPULS I ON_PHASE: PROPUL^TYPE; 

ACC ACH: VECTOR(2. .3); 

BOOST_FUEL_RATE, EXP_DECAY: real; 

MSL^MASS, ROCKET^MASS: real; 

ANGLE_OF_ATTACK: VECTOR(1 . .3); 



procedure INITIALIZE is 
begin 

MSL^MASS := MSL^MASS^DRY + ROCKET_MASS_INIT; 

PROPULS I ON_PHASE := COAST; --initial coast before booster ignition 
BOOST^FUEL^RATE := ROCKET_MASS_I NIT/ (REAL (INTEGER 

((TIME BOOSTER/INTEGRATION. STEP_SIZE) + 0.5)) * INTEGRATION.STEP_SIZE); 
end INITIAUZE; 



procedure AER0(MSL MACH,Q: 
RADOME_OFF: 

COEF DRAG: 

ANGLE OF ATTACK OUT: 



in REAL; 

in boolean; 
in out REAL; 
out VECTOR) is 



CD ZERO,CD_INDUCED,AOA ALPHA, 
A()A_BETA , AOA^TOT AL ; REAL ; 



begin 

-- compute AOA 

ACC^ACH := AUTOPILOT. ACCELERATIONS; 
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AOA ALPHA := -2.09 * ACC_ACH(3) / 0; 
if abs(AOA ALPHA) > 0.5236 then 

AOA^ALPHA := SIGN(AOA^ALPHA) * 0.5236; 
end if; 

AOA_BETA := 2.09 * ACC_ACH(2) / 0; 
if abs(AOA_BETA) > 0.5236 then 

AOA^BETA := SIGN(AOA_BETA) * 0.5236; 
end if; 

AOA_TOTAL := SQRT(AOA ALPHA * AOA ALPHA + AOA_BETA * AOA_BETA); 

ANGLE OF ATTACK(I) :=”aOA_TOTAL; " 

ANGLE~OF”aTTACK(2) := AOA_ALPHA; 

ANGLE"0F”aTTACK(3) := AOA_BETA; 

ANGLEIoF_ATTACIC_OUT := ANGLE_OF_ATTACIC; 

-- compute drag coefficient 
if MSL MACH <1.2 then 

CD”zERO := 0.75 * MSL_MACH - 0.02; 
elsif MSL_MACH >= 1.2 and MSL MACH < 1.8 then 

CD_ZERO := 2.346 - MSL^MACH * ((1.346-0.253 * MSL_MACH) * MSL_MACH-2.472) 

else 

CD_ZERO := 1.3 * EXP( -0.287 * MSL^MACH); 
end if; 

--10% increase after IR dome is removed 
if RADOME OFF then 

CD^ZERO := 1.1 ♦ CD^ZERO; 
end if; 

CDJNDUCED := 7.0 * (AOA_TOTAL**2); 

COEF^DRAG := 0.97 * CD_ZERO + CD_INDUCED; 

end AERO; 



procedure THRUST (MSL MASS, THRUST: out REAL; 

PROPULS I ON_PHASE_OUT: out PROPUL_TYPE) is 

THRUST_B(X)ST : constant := 11000.0; 

begin 

if ENVIRONMENT. Time < T_BOOST_INIT then 
PROPULS10N_PHASE := COAST; 

THRUST := 0.0; 

MSL_MASS := MSL_MASS.DRY + ROCKET MASS; 
elsif ENVIRONMENT. Time <= TIME BOOSTER + T BOOST INIT then 
PROPULS I ON^PHASE := BOOST;” 

THRUST := THRUST^BOOST * TIME BOOSTER/(REAL( INTEGER((TIME_BOOSTER/ 
INTEGRATION.STEP^sfZE) - 0.5)) * INTEGRATION.STEP_SIZE); 
ROCKET MASS := ROCKET MASS_INIT - BOOS T_FUEL_R ATE * ENVIRONMENT .TIME; 
MSL_MASS := MSL_MASS_DRY + ROCKET_MASS; 
elsif ENVIRONMENT. Time > TIME_BOOSTER + T_BOOST_INIT then 
MSL MASS := MSL_MASS_DRY; 

PROWLS I ON_PHASE := COAST; 

THRUST := 0.0; 
end if; 

PROPULSION PHASE_OUT := PROPULS I ON_PHASE; 
end THRUST; 

end AIRFRAME; 



Autopilot Specification 

These procedures consist of routines for modelling the autopilot. 



with MATH; use MATH; 

with MODEL TYPES; use MODEL TYPES; 

with REAL MATRIX; use REAL_MATRIX; 
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package AUTOPILOT is 

procedure INITIALIZE; 
procedure UPOATE_DIFF_EQS; 

procedure COMPUTE (ACC_COMHANDED: in VECTOR; ACC_ACHIEVED: out VECTOR); 
function ACCELERATIONS return VECTOR; 
end AUTOPILOT; 

-- Autopilot Package 

** These procedures consist of routines for modelling the autopilot. 



with MATH; use MATH; 

with MODEL TYPES; use MOOEL_TYPES; 

with ENVIRONMENT; 

with INTEGRATION; 

with REAL_MATRIX; use REAL_MATRIX; 

package body AUTOPILOT is 

AP_NAT_FREQ : constant := 0.80; -- Hertz 
AP_DAMP RATIO : constant := 0.75; 

AP Cl, AP C2, AP C3 ; REAL; 

ACC COM, ACC ACh7 ACC ACH 2 : VECTOR(2. .3); 



procedure INITIALIZE is 
begin 

AP Cl := 2.0 * EXP<-AP DAMP_RATIO * AP NAT FREQ * 2.0 • PI • 
“ INTEGRATION.STEP sTzE) * C0S(AP NAT FREQ • 2.0 • PI * 
INTEGRATION.STEP^SIZE • SQRTd.O - AP_DAMP_RATIO**2) ); 

AP C2 :* -EXPC-2.0 * AP_DAMP_RATIO * AP NAT FREQ * 2.0 * PI * 
“ INTEGRATION. STEP_SIZE); 

AP C3 := 1.0 - AP Cl - AP C2; 

ACC_ACH := (0.070.0); 

ACC_ACH 2 := (0. 0,0.0); 
end INITIALIZE; 



procedure UPOATE_0IFF_EQS is 
begin 

ACC_ACH<2) := AP_C1*ACC ACH<2) + AP_C2*ACC_ACH_2(2) + AP_C3*ACC_COM(2); 
ACC_ACH(3) := AP_C1*ACc7aCH(3) + AP_C2*ACC_ACH_2(3) + AP_C3»ACC_C0M(3); 
ACC“aCH 2:=ACC ACH; 
end UPDATE DIFF_EQS; 



procedure C0MPUTE(ACC_C0MMANDED: in VECTOR; ACC_ACHIEVED: out VECTOR) is 
begin 

ACC C0M:=ACC COMMANDED; 

ACC“aCHIEVEdT=ACC ACH; 
end COMPUTE; 



function ACCELERATIONS return VECTOR is 
begin 

return ACC ACH; 
end ACCELERATIONS; 

end AUTOPILOT; 



154 



-- RF Seeker package 

-- This package is the governing routine which estimates RF 
-- acquistion times. Seeker calculates a missile seeker gimbal angles. 

-- It will be assumed that the antenna point directly along the LOS vector. 



with MATH; use MATH; 

with MOOEL_TYPES; use MOOEL_TYPES; 

with REAL^MATRIX; use REAL^MATRIX; 

package RF_SEEKER is 



procedure SETUP<NUM_OF_TGTS_INIT, 
NUM_OF_SOJS_INIT: 
RCs“inTt: 
ecm”power_init: 

SSJ_ECM_TECH_INIT: 
SOJ ECM TECH I NIT: 



in INTEGER; 
in VECTOR; 
in VECTOR; 

in SSJ ECM_TECHNIQUE; 
in SOJ_ECM_TECHNIQUE); 



procedure INITIALIZE(LAC_GAIN_IN, 

LAC_TRANS_PWR_IN, 
LAC^BEAMWIDTHJN: in REAL); 



procedure GIMBAL(RANGE_VEC_BOO_INIT: in SUPER_VECTOR; 

GIMBAL_ANGLE : in out VECTOR); 



procedure DETECTION(TGT RANGE IN, 

RANGE TGT LAC IN: in 



RF PHASE_OUT: out 

SNR_OUT: out 

TGTTYP_OUT: out 

BSE OUT: out 



VECTOR; 

RF_PHASE_TYPE2; 

REAL; 

INTEGER; 

VECTOR); 



end RF^SEEKER; 



-- RF_Seeker package 

-- This package is the governing routine which estimates RF 

-- acquistion times. Seeker calculates a missile rf seeker gimbal angles. 

-- It will be assumed that the antenna points directly along the LOS vector. 



with MATH; use MATH; 
with MOOEL_TYPES; use MOOEL^TYPES; 
with REAL^MATRIX; use REAL^MATRIX; 
with ENVIRONMENT; 

package body RF_SEEKER is 



RF PHASE 


RF PHASE TYPE2; 


LAC TYPE 


AIRCRAFT_TYPE; 


sel'tgt 


GUID SELECTION TYPE 


ssj'ecm tech 


SSJ_ECM_TECHNIQUE; 


SOJ ecm'tech 


SOJ ECM TECHNIQUE; 


RCS 


VECT0R(T. .2); 


ECM POWER 


VECTOR(1..4); 


SNR 


REAL; 


K ACQ TIME 


REAL; 


X_ACQ_TIME 


REAL; 


LAC TRANS PWR 


REAL; 


lac“gain 


REAL; 


LAC BEAMWIDTH 


REAL; 


tgt“range 


VECTOR(1..4); 


RANGE TGT LAC 


VECT0R(1..4); 
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NUN OF TGTS : INTEGER; 

NUN“of“sOJS : INTEGER; 
RANGE_VEC_BOO: SUPER VECTOR(1 . .4); 
SELTGT “ : INTEGER; 

TGTTYP : INTEGER; 

BSE : VECTOR(1..4); 

TGT POWER : VECTOR(1 . .2); 

REPEAT POWER : VECTOR( 1 . .2); 

NOISE POWER : VECTOR(1 . .4); 



procedure SETUP(NUM OF TGTSJNIT, 
NUN of SOJS I NIT: 
RCSJNll: 

ECM POWER_INIT: 
SSOCM_TECH_INIT: 
SOJ ECM TECf I NIT 



in INTEGER; 
in VECTOR; 
in VECTOR; 

in SSJ_ECM_TECHNIQUE; 
in SOJ ECM TECHNIQUE) is 



begin 

RCS := RCS_INIT; 

SSJ_ECM_TECH := SSJ_ECM_TECH INIT; 
SOJ_ECM_TECH := SOJ_ECM_TECHJNIT; 
ECm“P0WER := ECM_POWER_TniT;“ 
NUM_OF TGTS := NUM_OF_TGTS INIT; 
NUM OF“sOJS := NUM OF SOJS“lNIT; 
end SETUP;” 



procedure INITIALIZE(LAC GAIN IN, LAC TRANS PWR IN, 
LAC^BEAMWIDTH^IN: in'REAf) is 

begin 

K ACQ TIME:= -10.0; 
x“aCqItIME:= -10.0; 

SNR:= -140.0; 

RF PHASE := NON ACTIVE; 

L AC_GA I N : =L AC_GA I N_I N ; 
LAC_TRANS_PWR:=LAC_TRANS_PWR_IN; 

LAC BEAMWIDTH:=LAC BEAMWIDTH IN; 

TGT”pOWER := (-200.0,-200.0); 

REPEAT POWER := (-200.0,-200.0); 

NOISE_POWER (-200.0,-200.0,-200.0,-200.0); 
SELTGT:= 0; 

TGTTYP:= 0; 

BSE := (0. 0,0. 0,0. 0,0.0); 
end INITIALIZE; 



procedure GIMBAL(RANGE_VEC_BOO_INIT : in SUPER_VECTOR; 

GIMBAL_ANGLE T in out VECTOR)“is 



begin 

RANGE VEC BOO:= RANGE VEC BCDO INIT; 
if SELTGt”= 0 then 
SELTGT := 1; 
end if; 

if RANGE VEC BOO(SELTGT)(1 ) = 0.0 then 

GIMBAL ANGLE(3) := ATAN(RANGE_VEC_BOO(SELTGT)(2)/ 

RANGE VEC B00(SELTGT)(3)); 

GIMBAL_ANGLE(2) := ATAN(-RANGE_VEC_BOO(SELTGT)(3)/0.001 ); 
GIMBAL_ANGLE(1) := ACOS(COS(GIMBAL_ANGLE(2))*COS(GIMBAL_ANGLE(3))); 

else 

GIMBAL ANGLE(3) ATAN(RANGE VEC BOO(SELTGT)(2)/ 

SQRT(RANGE_VEC__B(X)(SeItGT1(1)**2+RANGE_VEC B00(SELTGT)(3)**2)); 
GIMBAL ANGLE(2) := ATAN(-RANGE VEC B00(SELTGT)(3)/” 

RANGE VEC_BOOrSELfGT)(D); 

GIMBAL_ANGLE(1 ) := ACOS(COS(GIMBAL_ANGLE(2))*COS(GIMBAL__ANGLE(3))); 
end i f ; 
end GIMBAL; 
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procedure BORESIGHT^ERROR is 
begin 

BSE(SELTGT) := GAUSSIAN(0.0,0. 1 ) ; 
for I in SELTGT+1..NUH OF TGTS loop 
if RANGE_VEC_BOO(ll(l‘) =0.0 then 
BSE(I) := 0.0; 

else 

BSE(I) := ACOS(DOT_PROOUCT(RANGE_VEC_BOO(SELTGT),RANGE_VEC_BOO(I))/ 
(MAGNITUDE(RANGE VEC BOO(SELTGT))* 

MAGN I TUDE ( RANGE_VEC_BOO ( I ) ) ) ) ; 

end if; 
end loop; 

-- Calculate the boresight error targets less than the selected target 
for I in 1..SELTGT-1 loop 

if RANGE_VEC B00(I)(1) = 0.0 then 
BSE(I) := 0.0; 

else 

BSE ( I ) : = ACOS ( DOT_PROOUCT ( RANGE_VEC_BOO ( SEL TGT ) , RANGE_VEC_BOO ( I ) ) / 
(MAGN I TUOE ( RANGE_VEC_BOO( SEL TGT )) * 

MAGN 1 TUOE ( R ANGE_VEC_BOO ( I ) ) ) ) ; 

end if; 
end loop; 

for I in SELTGT+1..NUM_0F_S0JS loop 
if RANGE VEC B00(I)(1) = 0.0 then 
BSE(T) := 0.0; 

else 

BSE( I ) := ACOS(DOT_PROOUCT(RANGE_VEC_BOD(SELTGT),RANGE_VEC_BOO( I ) )/ 
(MAGNITUOE(RANGE_VEC BOO(SELTGT) )* 

MAGN I TUOE ( RANGE_VEC_BOO ( I ) ) ) ) ; 

end if; 
end loop; 

-- Calculate the boresight error targets less than the selected target 
for I in 1..SELTGT-1 loop 

if RANGE_VEC_BOO(I)(1) =0.0 then 
BSE(I) := 0.0; 

else 

BSE(I) := ACOSCOOT PROOUCTCRANGE VEC BCXKSELTGT), 

RANGEJ/EC_B00(I+1))7(MAGNITU0E(RANGE_VEC_B00(SELTGT))* 
MAGN I TUOE ( RANGE_VEC_BOO ( I + 1 ) ) ) ) ; 

end if; 
end loop; 

end BORESIGHT^ERROR; 



procedure MSL_ANT_GA1NS_SA (BSE: in REAL; SUM_GAIN,OELTA_GAIN: out REAL) is 

ABS^BSE: REAL; 

S1:“ REAL; 

begin 

ABS_BSE := ABS(BSE); 
if ABS_BSE <=38.0 then 

S1 := 35.0*((ABS(COS(BSE*ABS_BSE)))**0.7)-13.0; 
if ABS^BSE >30.0 then 

SI := S1+ (ABS_BSE-30.0)*0.625; 
end if; 

else 

S1:=14.6*EXP(-(ABS.BSE-38.0)/30.0)-25.0; 
end if; 

SUM_GAIN:=S1; 
if ABS_BSE >= 20.0 then 

OELTA_GA1N:=31.0*SQRT(SIN(ABS_BSE*7.66))-13.0; 

else 

0ELTA_GAIN:=7. 82+25. 0*EXP(-(ABS_BSE-20.0)/30.0)-25.0; 
end if; 

end MSL_ANT_GAINS_SA; 
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procedure MSL_ANT_GAINS_A (BSE: in REAL; SUH GAIN, DELTA GAIN: out REAL) is 
ABS BSE: REAL; 

SI:” REAL; 

begin 

ABS_BSE := ABS(BSE); 
if ABS BSE <= 38.0 then 

Sf := 46.0*((ABS(COS(BSE*ABS_BSE)))**0.7)-13.0; 
if ABS BSE > 30.0 then 

Sf:= S1+ (ABS_BSE-30.0)*0.625; 
end if; 
else 

S1:=14.6*EXP(-(ABS_BSE-38.0)/30.0)-25.0; 
end if; 

SUM_GAIN:=S1; 
if ABS_BSE >= 20.0 then 

DeIta_GAIN:=31.0*SQRT(SIN(ABS_BSE*7.66))-13.0; 

else 

DELTA_GAIN:=7.82-»-25.0*EXP(-(ABS_BSE-20.0)/30.0)-25.0; 
end if; 

end MSL_ANT_GAINS_A; 



procedure SA_POUERS is 

LOOP_GAIN, ERPD, MSL_GAIN, DELTA_GAIN : REAL; 
begin 

for I in 1 . .NUM_OF_TGTS loop 

MSL ANT GAINS_SA(BSE(I),MSL_GAIN,DELTA_GAIN); 

TGT“pOWER(I) := -53.0+ LAC TRANS_PWR+LAC_GAIN+MSL_GAIN+10.0*log(RCS(I) ) 
-20.0* log (RANGE TGT_LAC(D) 

-20.0*log(TGT RANGE(D); 
case SSJ_ECM_TECH(I) is 
when "repeater => 

LOOP_GAIN := ECM POWER(I); 

REPEAT POWER(I) 7= -84.0 + LAC_TRANS PWR + LAC_GAIN + 

MSL_GA I N+LOOP GA I N - 20 . 0* I og ( RANGE_T GT_L AC ( I ) ) - 
20.0*log(TGT_RANGE( I )); 
when BARRAGE_N0ISE"=> 

ERPD := ECM_POWER(I); 

NOISE POWER(I) := -78.2 + LAC_TRANS_PWR + LAC_GAIN + 

MSL_GAIN + ERPD - 20.0*log(TGT_RANGE( I ) ); 

when others => 
nul 1; 

end case; 
end loop; 

if NUM_OF_SOJS /= 0 then 

fo7 I in 1..NUM OF SOJS loop 

MSL_ANT_GAINS_SA(BSE(I+2),MSL_GAIN,DELTA_GAIN); 

case SOJ ECM TECH(I) is 
when“BARRAGE_NOISE => 

ERPD:=ECM_POWER(I+2); 

NOISE POWER(I+2):=-88.0+ERPD+MSL GAIN-20.0*LOG( 
TGT_RANGE(I+2)); 

when others => 

NOISE_POWER(I+2):=-166.0; 
end case; 
end loop; 
end if; 

end SA_POWERS; 



procedure SA DETECT is 

THERM_N0Tse_FL 00R : constant:=-166.0; -- indb/filter 
FALSE_ALARM_THRESHOLD : constant : =6.0; -- in db 
NOISE_THRESHOLD : constant : =8.0; -- in db 
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begin 

SA POUERS; 

if~NUM OF_TGTS = 1 then 

if" TGT_POWER(1) >= REPEAT_POWER(1) and TGT_POWER(1) >= NOISE_POWER< 1 ) 
then 

SNR := TGT POWER(1) - THERM_NOISE FLCX)R; 

if TGT_POWER(1) > THERM NOISE FLOOR + FALSE ALARM_THRESHOLD then 
SELTGT := 1; “ ~ 

TGTTYP := 3; 

else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 

elsif REPEAT POWERd) > TGT_POWER(1) and 
REPEAT_POWEr 71) > NOISE POWERd) then 

SNR := REPEAT POWER(1> - THERM NOISE FLOOR; 

if REPEAT POWERd) > THERM_NoIsE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTO"? := 1; 

TGTTYP := 2; 

else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 
else 

SNR := NOISE_POWER(1) - THERM_NOISE_FLOOR; 

if NOISE POWER(2) > THERM NOISE FLOOR + FALSE ALARM THRESHOLD then 
SELTGT := 1; 

TGTTYP := 2; 

else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 
end if; 

else 

if TGT_POWERd) >= TGT_POWER(2) and TGT POWERd) >= REPEAT POWER<2) 
and TGT POWERd ) >= REPEAT_POWER(1 ) and~TGT_POWER<1 ) >= NoTsE_POWER(1 ) 
and TGT~POWERd) >= NOISE_POWER(2) then 

SNR ;= TGT_POWER(1) - THERM NOISE FLOOR; 

if TGT POWERd) > THERM_NOISE_FLOOR + FALSE ALARM_THRESHOLD then 
SeItGT := 1; 

TGTTYP := 3; 

else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 

elsif TGT_POWER(2) > TGT POWER(I) and TGT POWER<2) >= REPEAT POWER(2) 
and TGT POWERC2) >= REPEAT POWERd ) 
and TGT~POWER(2) >= NOISE_POWER(1) 
and TGt”pOWER( 2) >= NOISE~POWER(2) then 

SNR := TGT_POWER<2) - THERM_NOISE_FLOOR; 

if TGT_POWER<2) > THERM_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 2; 

TGTTYP := 3; 
else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 

elsif REPEAT_POWER<2) > TGT POWER(I) and REPEAT_POWER<2)>TGT_POWER(2) 

and REPEAT_POWER<2)>REPEAT_POWERd) and REPEAT_POWER(2)>NOISE_POWER(1) 
and REPEAT POWER(2) > NOISE POWER(2) then 

SNR :=“ REPEAT POWER(2) “ THERM NOISE FLOOR; 

if REPEAT_POWER(2) > THERM NoTsE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 2; 

TGTTYP := 2; 

else 

SELTGT := 0; 

TGTTYP ;= 0; 
end i f ; 

elsif REPEAT_POWERd ) > TGT_POWER(1) and REPEAT_POWER(1 ) > TGT_POWER<2) 
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and REPEAT P0WER(1)>REPEAT POWER(I) and REPEAT_POWER(1)>NOISE_POWER(1 ) 
and REPEAT~P0WER(1) > NOISE_POWER(2) then 

SNR :=”REPEAT_POgER(1) - THERM_NOISE_FLCX)R; 

if REPEAT_POWER(1) > THERM_NOISE_FLOOR + FALSE_ALARM THRESHOLD then 
SELTGT := 1; 

TGTTYP := 2; 

else 

SELTGT ;= 0; 

TGTTYP := 0; 
end if; 

elsif NOISE_POWER(1)>TGT POWERd) and NOISE POWER! 1)>TGT_POWER<2) 
and NOISE_POWER(1) > REPEAT_POWER(1) 
and NOISE_POUER(1) > REPEAT_POWER<2) 
and NOISE POWERd) > NOISE_POWER(2) then 

SNR := NOISE POWERd ) - THERM_NOISE FLOOR; 

if NOISE POWERd) > therm NOISE FLOOR + FALSE ALARM THRESHOLD then 
SELTGT := 1; 

TGTTYP := 2; 
else 

SELTGT := 0; 

TGTTYP := 0; 
end if; 

else 

SNR := NOISE_POWER(2) - THERM_NOISE_FLOOR; 

if NOISE_POWER<2) > THERM_NOISE FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 2; 

TGTTYP := 2; 

else 

SELTGT ;= 0; 

TGTTYP := 0; 
end if; 
end if; 
end if; 

-- determine if the soj power is detectable 
for I in 1..NUM_OF_SOJS loop 

case SOJ_ECM_TECH(I) is 
when~BARRAGE NOISE => 

if TGT_POWER(I) > THERM_NOISE FLOOR ♦ FALSE_ALARM_THRESHOLD 
and TGT_POWER(I) > NOISE POWER! I) then 
null; 

elsif NOISE_POWER!I) > THERM_NOISE_FLOOR ♦ 

FALSE ALARM THRESHOLD then 

SELTGT := 1; 

TGTTYP := 1; 

SNR := NOISE_POWER!I) - THERM_NOISE_FLOOR; 

else 

SELTGT := 1; 

TGTTYP := 0; 

if TGT POWER! I) > NOISE POWER! I) then 

SNR := TGT_POWER!I)~- THERM_NOISE_FLOOR; 

else 

SNR := NOISE_POWER!I) - THERM_NOISE_FLOOR; 
end if; 

end if; 

when others => 

SELTGT 1; 

TGTTYP ;= 0; 

SNR ;= TGT_POWER!I) - THERM_NOISE_FLOOR; 
end case; 
end loop; 
end SA_DETECT; 



procedure SA_MOOE is 

X_ACO_DELAY : CONSTANT := 5.0; -- X band acq to track delay time 
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begin 

case RF_PHASE is 

when MIDCOURSE i NON ACTIVE => 

if SELTGT = 1 or SELTGT = 2 then 
R F_P HASE : =X_BAND_ACQU I S I T I ON ; 
if X_ACQ_TIME = -10.0 then 

X_ACQ_T I ME : =ENV I RONMENT .Time; 
end if; 
end if; 

when X BAND ACQUISITION => 

if“ENVI^bNMENT.Time >= X_ACQ TIME+X ACQ DELAY then 
R F_PHASE : =X_BAND_TRACK; “ 
end if; 

when others => 
nul 1; 
end case; 
end SA_M0DE; 



procedure A^POWERS is 

THERM^NOI SEAFLOOR : CONSTANT := -150.0; -- indb/filter 
MSL_POWER :“C0NSTANT := 30.0; 

LOOP_GAIN : REAL; -- in db 
ERPD : REAL; -- in db 
MSL_GAIN, DELTA_GAIN : REAL; 

begin 

for I in 1..NUM_OF TGTS loop 

MSL_ANT_GAINS_A(BSE(I),MSL_GAIN,DELTA_GAIN); 

TGT POWER(I) := -63.45+ MSL POWER+2.0*MSL_GAIN+10.0*LOG(RCS( I ))-40.0* 
log(TGT_RANGE(I))r 

case SSJ_ECM_TECH(I) is 
when REPEATER => 

LOOP_GAIN ;= ECM_POWER( I ); 

REPEAT POWER(I) T= -105.0 +LAC TRANS_PWR +LAC_GAIN +MSL_GAIN + 

LOOP GAIN " 40.0*log(TGT_RANGE(D); 

when BARRAGE_NOISE => 

ERPD := ECM_POWER(I); 

NOISE POWER(I) := -88.65 + LAC TRANS_PWR + LAC_GAIN + MSL GAIN 
+ ERPD - 20.0*log(TGT_RANGE(D); 

when others => 
null; 

end case; 
end loop; 

if NUM OF SOJS /= 0 then 

fo7 r in 1..NUM_OF_SOJS loop 

MSL_ANT_GAINS_A(BSE(I+2),MSL_GAIN,DELTA_GAIN); 

case SOJ_ECM_TECH(I) is 
when BARRAGE_NOISE => 

ERPD:=ECM POWER(I+2); 

NO I SE_POW£R ( I +2 ) : =- 1 00 . 0+ERPD+MSL_.GA I N - 20 . 0*LOG ( TGT_RANGE ( I +2 ) ) ; 
when others => 

NOI SE_POWER( I +2 ) : = THERM^NOI SE_FLOOR ; 
end case; 
end loop; 
end if; 
end A_POWERS; 



procedure A_DETECT is 

THERM_NOISE_FLOOR : CONSTANT := -150.0; -- indb/filter 

-- asstnie a 1000 hz/filter BU 
FALSE_ALARM_THRESHOLD : CONSTANT := 6.0; -- in db 
NOISE_THRESHOLD : CONSTANT := 8.0; -- in db 

begin 
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Calculate Power Levels 
A_POWERS; 

if Nl#1_OF TGTS = 1 then 

if TGT_POWER(1) > REPEAT_POWER( 1 ) and TGT_POUER(1) > NOISE_POWER( 1 ) then 
SNR := TGT POWER(I) - THERM NOISE_FLOOR; 

if TGT_POUER(1) > THERH_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 1; 

TGTTYP := 5; 
end if; 

elsif REPEAT POUER(1)>TGT POWERd) and REPEAT PO«ER(1)>NOISE_POWER(1 ) then 
SNR := REPEAT POWERd ) - THERM NOISE FLOOR; 

if REPEAT_POWER(1) > THERM_N0lsE FLOOR + FALSE_ALARM THRESHOLD then 
SELTGT := 1; 

TGTTYP := 4; 
end if; 
else 

SNR := NOISE_POWER(1) - THERM NOISE FLOOR; 

if NOISE POUER(2) > THERM N0TsE_FL00R + FALSE_ALARM THRESHOLD then 
SELTGT ;= 1; 

TGTTYP := 4; 
end if; 
end if; 

else 

if TGT_POWER(1) > TGT_POWER<2) and TGT_POWER(1) > REPEAT_POWER(2) and 
TGT_POWERd) > REPEAT_POWER(1) and TGT_POUER(1) > NOISE_POWER(1 ) and 
TGT_POWERd) > NOISE POWER(2) then 

SNR := TGT_P0WER'(1) - THERM_NOISE_FLOOR; 

if TGT POWERd) > THERM_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 1; 

TGTTYP := 4; 
end if; 

elsif TGT_POWER(2) > TGT_POWER(1) and TGT_POWER(2) > REPEAT_POWER(2) and 
TGT_POWER(2) > REPEAT_POWER(1 ) and TGT POWER(2) > NOISE POWER(I) and 
TGT_POWER(2) > NOISE_POWER{2) then 

SNR := TGT_POWER(2) - THERM_NOISE_FLOOR; 

if TGT POWER(2) > THERM NOISE_FLOOR + FALSE_ALARM THRESHOLD then 
SELTGT := 2; “ 

TGTTYP := 5; 
end if; 

elsif REPEAT_POWER(2) > TGT_POWER(1) and REPEAT_POWER(2) > 

TGT_POWER(2) and REPEAT_POWER(2)>REPEAT_POWER(1) and 
REPEAT_POWER(2)>NOISE_POWER(1) and REPEAT_POWER(2) > NOISE_POWER(2) 
then 

SNR := REPEAT_POWER(2) - THERM_NOISE_FLOOR; 

if REPEAT POWER(2) > THERM_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT~:= 2; 

TGTTYP := 4; 

end if; 

elsif REPEAT POWERd )>TGT_POWER(1) and REPEAT POWERd )>TGT_P0WER(2) 
and REPEAT POWERd )>REPEAT POWERd) and 

REPEAT_POWERd)>NOISE_POWERd) and REPEAT_POWER(1 ) > NOISE_POWER(2) 
then 

SNR := REPEAT_POWERd) - THERM_NOISE_FLOOR; 

if REPEAT POWERd) > THERM NOISE FLOOR + FALSE_ALARM THRESHOLD then 
SELTGT := 1; “ “ 

TGTTYP ;= 4; 
end if; 

elsif NOISE_POWER(1)>TGT POWERd) and NOISE_POWER(1)>TGT_POWER(2) 
and NOISE POWERd )>REPEAT_POWER(1) and NOISE_POWER(1) > 

NOISE_POwfR(1) and NOISE_POWER(1) > NOISE_POWER(2) then 
SNR := NOISE POWERd") - THERM NOISE FLOOR; 

if NOISE_POWER(1) > THERM_N0 TsE_Fl 50R + FALSE_ALARM_THRESHOLD then 
SELTGT ;= 1; 

TGTTYP := 4; 
end if; 

else 

SNR ;= N0ISE_P0WER(2) - THERM_NOISE_FLOOR; 

if NOISE_POWER(2) > THERM_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 2; 
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TGTTYP := 4; 
end if; 
end if; 
end if; 

-- determine if the soj power is detectable 
for I in 1..NUM_0F_S0JS loop 

case SOJ_ECM TECH(I) is 

when“BARRAGE_NOISE => 

if TGT_POWER(I) > THERM_NO I SEAFLOOR > FALSE_ALARM_THRESHOLD and 
TGT_POWER(I) > NOISE^POWERd) then 
null; 

elsif NOISE_POWER(I) > THERM_NOISE_FLOOR + FALSE_ALARM_THRESHOLD then 
SELTGT := 1; 

TGTTYP := 1; 

SNR := NOISE_POWER(I) - THERM_NOISE_FLCX)R; 
else 

SELTGT := 1; 

TGTTYP := 0; 

if TGT_POWER(I) > NOISE POWER(I) then 

SNR := TGT_POWER(ir - T HERM^NO I SEAFLOOR ; 

else 

SNR := NOISE_POWER(I) - THERM_NOISE__FLOOR; 
end if; 
end if; 

when others => 

SELTGT := 1; 

TGTTYP := 0; 

SNR := TGT_POWER(I) • THERM_NOISE_FLOOR; 
end case; 
end loop; 
end A DETECT; 



procedure A_MOOE is 

K_ACQ^DELAY : CONSTANT:^ 5.0; 

begin 

case RF_PHASE is 

when X_BAND_TRACK|NON_ACTIVE => 
if TGTfYP in 4.. 5 then 

RF_PHASE : =k_band_acqui s i t i on; 
if K_ACQ_TIME = -10.0 then 

ic_ACQ_T I ME : =ENV I RONMENT . T i me; 
end if; 
end if; 

when k_band_acquisition => 

if ENVIRONMENT. Time >= K_ACQ_TIME**-K_ACQ_DELAY then 
RF_PHASE : =K_BAND_TRACK; 
end if; 

when others => 
nul 1; 
end case; 
end A_MOOE; 



procedure DETECTION(TGT_RANGE_IN, 

RAlTGE_TGf LAC IN 
RF_PHASE_dUT 
SNR OUT “ 

TGfrYP OUT 
BSE OUT 



in VECTOR; 
out RF_PHASE_TYPE2; 
out REAL; 
out INTEGER; 
out VECTOR) is 



begin 

TGT RANGE :=TGT RANGE IN; 

RANGE_TGT_LAC:=RANGeItGT_LAC_IN; 

-- Determine if we have aquired the target in S/A X-band, Ka band or are 
-- still in midcourse 
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if RF_PHASE /= K BAND_ACQUISITION or RF PHASE /= K_BAND_TRACK then 
SA DETECT; 

SA'mOOE; 
end if; 

A_0ETECT; 

A_MOOE; 

SNR_OUT:=SNR; 

RF^PHASE OUT:=RF PHASE; 

BSE OUT:=BSE; 

TGTTYP_OUT:=TGTTYP; 
end DETECTION; 

end RF^SEEKER; 



-- Package IR_SEEKER 



with MATH; use MATH; 

with MOOEL_TYPES; use MOOEL^TYPES; 

with REAL_MATRIX; use REAL^MATRIX; 

package IR_SEEKER is 

procedure SETUP(1R TGT1_SIGNATUREJN, IR_TGT2_SIGNATURE_IN: 
in TGT_IR_SIZE_TYPE); 

procedure INITIALIZE(TGT_ALTITUDE, MSL_ALTITUDE; in REAL; 

IR_ACQ_RANGE: out REAL); 

procedure DETECTION (RANGEl : in REAL; IR PHASE_OUT ; out 
IR_PHASE_TYPE); 



end IR_SEEKER; 



-- Package IR^SEEKER body 



with MATH; use MATH; 
with MOOEL^TYPES; use MOOEL^TYPES; 
with REAL_MATRIX; use REAL MATRIX; 
with ENVIRONMENT; 

package body IR_SEEKER is 

IR_PHASE; IR_PHASE_TYPE; 

IR SEARCH TIME: REAL; 

IR^ACQ TIME : REAL; 

IR_TrOiME : REAL; 

IR_TGT1_SIGNATURE : TGT_IR_SIZE_TYPE; 
IR_TGT2_SIGNATURE : TGT_IR_SIZE_TYPE; 



procedure SETUPdR TGT1 SIGNATURE_IN, IR_TGT2_SIGNATURE_IN: 
in TGTJR_SIZE_TYPE) is 

begin 

IR_TGT1_SIGNATURE:=IR TGT1 SIGNATURE IN; 

I R TGT2_S I GN ATURE : = I r”tGT2~S I GNATURE J N ; 

ir”phase:= non active! 

IR_SEARCH_TIMeT=0.0; 

IR_ACQ_TIME:=0.0; 

IR_TRK_TIME:=0.0; 
end SETUP;” 
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procedure INITIALI2E(TGT ALTITUDE, MSL ALTITUDE: 
IrJaCQ^RANGE: out REAL) is 

begin 

if TGT_ALTITUDE > 70_000.0 then 

if IR TGT1_SIGNATURE = SHALL then 
I R_,ACQ_RANGE : =200000.0; 

else 



I R_ACQ_R ANGE : =400000 . 0 ; 
end if; 

elsif TGT ALTITUDE > 10 000.0 then 
if Ir"tGT 1 SIGNATURE = SMALL then 
I R_ACQ"r AN GE : = 1 00000 . 0 ; 
elsif IR_TGT1_SIGNATURE = MEDIUM then 
IR ACQ RANGE: =200000.0; 
elsif Tr TGTI SIGNATURE = LARGE then 
I R_ACQ_RANGE : =350000 . 0; 
end if; 

else 



if IR_TGT1_SIGNATURE = SMALL then 
I R_ACQ_RANGE : =6000 . 0; 
elsif IR_TGT1_SIGNATURE = MEDIUM then 
IR ACQ RANGE : =100000.0; 
elsif Tr TGTI SIGNATURE = LARGE then 
I R_ACQ_RANGE : =1 50000 . 0; 
end if; 
end if; 

end INITIALIZE; 



in REAL; 



procedure DETECTION (RANGE1 : in REAL; IR_PHASE_OUT : out 
IR_PHASE_TYPE) is 



SEARCH DELAY 


: constant 


:= 5.0; 


** delay from radome off until IR SEARCH 


ACQ DELAY 


: constant 


:= 1.0; 


from IR SEARCH until IR ACQUISITION 


trk[[delay 


: constant 


:= 1.0; 


from IRIaCQUISITON until IR_TRACK 


DELTA SEARCH 


: REAL; 


-- local 


variables 


delta"acq 


: REAL; 






delta"trk 


: REAL; 







begin 

case IR PHASE is 
when NON ACTIVE => 

if IR SEARCH TIME = 0.0 then 

IRJSEARCiiJlHE := ENVIRONMENT.Tirne; 
end if; 

DELTA SEARCH := ENVIRONMENT. Time - IR_SEARCH_TIME; 
if DELTA_SEARCH >= SEARCH DELAY then 
IR_PHASE:= I RESEARCH;" 
end if; 

when IR SEARCH => 

if Tr ACQ_TIME = O.O then 

iOco^TIME := ENVIRONMENT. Time; 
end if; 

DELTA ACQ := ENVIRONMENT. Time ■ IR ACQ TIME; 
if DELTA ACQ >= ACQ DELAY then 
IR_PHASE:= IR_ACQUISITION; 
end if; 

when IR ACQUISITION => 

if 1 r TRK TIME = 0.0 then 

lO^OlME := ENVIRONMENT. Time; 
end if; 

DELTA^TRK := ENVIRONMENT. Time - IR_TRK TIME; 
if DELTA_TRK >= TRK DELAY then 
IR_PHASE:= IR^TRACK; 
end if; 

when IR^TRACK => 

null; ** Once in IR^TRACK always in IR^TRACK 

end case; 

IR_PHASE OUT := IR_PHASE; 
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end DETECTION 



end IR^SEEKER; 



-- Guidance Package Specification 

-- This package contains the data types and subprograms used in modeling the 
-- guidance subsystem. 



with MATH; use HATH; 

with REAL_MATRIX; use REAL^MATRIX; 

with MOOEL^TYPES; use MOOEL_TYPES; 

package GUIDANCE is 

procedure INITIALIZE ( 

ALTITUDE : in REAL; 

TGT_ALTITUDE : in REAL; 

TGT_RANGE : in VECTOR; 

TGT^VEL : in VECTOR); 

procedure COMPUTE ( 

TIME_TO_GO : in REAL; 

ALTITUDE : in REAL; 

ALTITUDE_RATE : in REAL; 

VELOCITY : in REAL; 

AXIAL_ACC : in REAL; 

PITCH^BOO : in REAL; 

TGT RANGE : in REAL; 

TGT“rANGE_RATE : in REAL; 

SKR_GIMBAL_ANGLE : in VECTOR; 

OMEGA 1_SKR : in VECTOR; 

GUIDANCE PHASE_OUT : out GUIDANCE PHASE TYPE; 
ACC_CMD_BOO : out VECTOR); 

end GUIDANCE; 



-- Guidance Package Body 

-- This package contains the data types and subprograms used in modeling the 
-- guidance subsystem. 



with MATH; use MATH; 
with MODEL_TYPES; use MODEL TYPES; 
with REAL MATRIX; use REAL MATRIX; 
with ENVIRONMENT; 

package body GUIDANCE is 



-- Mode selection constants 



GUIDANCE_INITIATE TIME : constant := 0.8; -- Sec 

TURNDOWN GIMBAL_ANGLE : constant := 40.0 * DEG_TO_RAD; -- Rad 

TRANS_ClTmB_ANGLE : constant := 20.0 * DEG TO_RAD; -- Rad 



-- Altitude hold algorithm constants 



DESIRED_ALTITUDE : constant := 70000.0; -- Feet 
ALTITUDE^DELTA : constant := 50.0; -- Feet 
ALTITUDE“gaIN : constant := 0.1; -- Ft/Sec / Ft 
ALTITUDe“rATE_GAIN : constant := 0.3; -- Ft/Sec''2 / Ft/Sec 
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ALTITUDE ACC LIMIT 



constant 



160.0; 



Ft/Sec^2 



-- Guidance algorithm constants 



LOAD BIAS_FACTOR : constant := -5.0 * G; -- Ft/Sec"2 
ACCEL^LIMIT : constant := 35.0 ♦ G; -- Ft/Sec^2 
CRUISE_ALPHA_EST : constant := 10.0 * DEG_TO_RAD; -- Rad 



Data definitions 



GUIDANCE PHASE : GUIDANCE PHASE_TYPE; 

PREV GUIDANCE PHASE : GUIDANCE PHASE_TYPE; 
COS TOT GIMBAL_ANG : REAL; 
COS”tURNDOWN_GIMBAL_ANGLE : REAL; 
CLIHB_ANGLE : REAL; 

AXIAL_ACC_COMP : REAL; 

PIT ACC_CW : REAL; 

YAU"aCC CMD : REAL; 

ALTITUDE RATE_LIMIT : REAL; 

ALT RATE”lIMIT_SET : boolean; 

LOS’bIAS : REAL; 

HOLD_PATH_TIME : REAL; 
TERmTnAL_TGO_THRESHOLD : REAL; 

LONG_RANGE : boolean; 

ALT SWITCH, ALT_RATE_SWITCH : REAL; 
PIT”acC_COMP_ENABLED : boolean; 



procedure INITIALIZE ( 

ALTITUDE : in REAL; 

TGT ALTITUDE : in REAL; 

TGt”raNGE : in VECTOR; 

TGt’veL : in VECTOR) is 

RANGE HORIZ : REAL; 

TGT VEL HORIZ : REAL; 

REL_VEL NOSE, REL VEL TAIL, REL VEL : REAL; 

HORIZ_ASPECT_ANGLE : REAL; 

DT^SEP, DX_SEP, DT HOLD, DX HOLD : REAL; 

R 5G BIAS, X_5G_BIAS, H 5G BIAS, T_5G_BIAS : REAL; 
r“vAR arc, DX VAR ARC, DT VAR ARC : REAL; 

X ALT HOLD, t’aLT'hOLD : REAlJ 
DX_TGT : REAlJ 

COS ASPECT ANGLE, SIN ASPECT_ANGLE : REAL; 

GIM“piTCHOVR_RNG, DELTA_HEIGHT : REAL; 

TGO”pITCHOVr”rNG, TGO PITCHOVR RNG nose, TG0_PITCH0VR_RNG_TAIL : REAL; 
DISCRIMINANT : REAL; 

LOS_PITCHOVR RNG, LOS_PITCHOVR_RNG NOSE, LOS PITCHOVR_RNG_TAIL : REAL; 
PITCHOVR^RNG’NOSE, PITCHOVR RNG TaTl : REAL;” 

RNG^NOSeT RNG^TAIL, DELTA^RNG, RADIUS, THRESHOLD^RANGE : REAL; 
beg in”” 

GUIDANCE PHASE := NULL_COMMANDS; 

ALT RATE”lIMIT SET := false; 

PIT’aCC_COMP_ENABLED := false; 

COS”tURNDOWN”gIMBAL_ANGLE := C0S(TURND0WN_GIMBAL_ANGLE); 

-- LOS rate bias and time-to-go threshold k>ased on tgt altitude 

if TGT ALTITUDE <= 50000.0 then 
LOS BIAS := 0.0025; 

TERMINAL_TG0_THRESH0LD := AO.O; 

else 

LOS^BIAS := 0.001; 

TERMINAL TGO_THRESHOLD := 15.0 + TGT_ALTITUDE*0.0005; 
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end if; 

-- Horizontal tgt range and relative velocity 

RANGE HORIZ := SQRT(TGT RANGE(1)**2 ♦ TGT RANGE(2)**2); 

TGT_VEL_HORIZ := SQRT(TGT_VEL(1 )*»2 + TGtIvEL(2)*»2); 

-- Altitude hold mode rel. vel. for nose & tail aspect 

REL_VEL_NOSE := 3000.0 + TGT VEL HORIZ; 

REL_VEL_TA1L := 3000.0 - TGt“vEL~H0R1Z; 

-- Horizontal aspect angle 

SIN_ASPECT_ANGLE := (TGT VEL(2)*TGT_RANGE(1 ) - 

TGT_VEL(1)*TGT_RANGET2)) / (RANGE_HORIZ * TGT_VEL_HORIZ); 
COS_ASPECT_ANGLE := (TGT VEL(1)»TGT_RANGE(1) + 

TGT_VEL(2)*TGT_RANGE?2)) / (RANGE_H0RIZ * TGT_VEL_HORIZ); 

HORIZ_ASPECT_ANGLE := ATAN2(S1N_ASPECT_ANGLE, COS_ASPECT_ANGLE); 

-- Time to hold before 5g bias climb 

if TGT ALTITUDE > 70000.0 then 
if”ALTITUDE > 20000.0 then 

if MAGNITUDE(TGT_RANGE) < 110.0*FEET_PER NHI then 
DT_HOLD := 20.0; 

elsif MAGNITUOE(TGT_RANGE) > 120.0*FEET_PER_NHI then 
DT_HOLD := 10.0; 

else 

DT_HOLD ;= 20.0 + (MAGNITUDE (TGT RANGE)-110.0*FEET_PER NMD* 
(10.0-20.0) / ((120. 0-110. 0)*FEET_PER_NMI); 
end if; 

HOLD PATH_TIME := ((TGT_ALTITUDE-DESIRED ALTITUDE) / 

(90000. 0-DESIRED ALTITUDE)) * ((ALTITUDE-20000.0) / 
(30000.0-20000.0)) * 20.0; 

if HOLD_PATH_TIME > DT_HOLD then 
HOLD_PATH_TIME := DT_HOLD; 
end if; 

else 

HOLD_PATH_TIME ;= 0.8; 
end if; 

else 

HOLD_PATH_TIME ;= 0.8; 
end if; 

-- Estimated missile travel, separation phase 

DT SEP :* 0.8; 

DX_SEP := 1000.0 * DT_SEP; 

-- Estimated missile travel, flight path hold phase 

DT HOLD := HOLD PATH TIME - DT SEP; 

DX^HOLD := ((1000.0 + 2600.0) 7 2.0) * DT_H0LD; 

-- Estimated missile travel, 5g bias phase 

R 5G BIAS := (2600.0 ** 2) / (-LOAD_BIAS_FACTOR); 

X~5G~BIAS := DX_SEP + DX_HOLD R_5G_BIAS * SIN(TRANS_CLIMB_ANGLE); 
H~5g”bIAS := ALTITUDE + R 5G BIAS * (1.0 - C0S(TRANS CLIMB ANGLE)); 
t”5g”bIAS := TRANS_CLIMB ANGLE * 2600.0 / (-LOAD BIAS_FACTOR) ♦ DT_SEP ♦ 
DT_HOLD; 

-- Estimated missile travel, variable arc phase 
R_VAR_ARC := (DESIRED_ALTITUDE - H_5G_BIAS) / 
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(1.0 - COS(TRANS_CLIMB ANGLE)); 

OX VAR ARC := R VAR ARC * SIN(TRANS_CLIMB_ANGLE); 

Ot”vAr“aRC := TRANS~CLIMB_ANGLE * R_VAR_ARC / ((2600.0 ♦ 3000.0) / 2.0) 

-- Estimated missile travel, altitude hold phase 

X_ALT HOLD := X 5G BIAS ♦ 0X_VAR_ARC + 3000.0*20.0; 

T_ALT”hoLD := OgIbiaS ♦ 0T_VAR_ARC + 20.0; 

-- Estimated target travel 

0X_TGT := TGT_VEL_HORIZ * T_ALT_HOLD; 

-- Gimbal angle pitchover range 

DELTA_HEIGHT := DESIRE0_ALTITU0E - TGT_ALTITUOE; 

GIM_PITCHOVR_RNG := abs(DELTA HEIGHT) / TAN(TURNDOWN GIHBAL ANGLE - 
CRUI SE_ALPHA_EST*S I GN (0ELTA_HE I GHT ) ) ; 

-- Time to go pitchover range 

RELJ/EL := REL_VEL_NOSE ; 
for I in 1..2 loop 

TGO_PITCHOVR_RNG NOSE := TGO_PITCHOVR_RNG; 

discriminant”:* Trel_vel*terminal_tgo_thresholo) ** 2 - 

4.0 * (DELTA_HEIGHT ** 2); 

if DISCRIMINANT >* 0.0 then 

TGO PITCHOVR RNG := (REL VEL*TERMINAL TGO_THRESHOLD ♦ 
“SQRT(DISCRIMINANT)) 7 2.0; 

else 

TGO_PITCHOVR_RNG := 0.0; 
end if; 

-- LOS rate pitchover range 

LOS PITCHOVR_RNG_NOSE := LOS_PITCHOVR_RNG; 

DISCRIMINANT := (REL_VEL / (0.5*DEG_T0_RAD)) - abs(DELTA_HEIGHT); 
if DISCRIMINANT > 0.0 then 

LOS_PITCHOVR_RNG :* SORT(abs(DELTA_HEIGHT) * DISCRIMINANT); 

else 

LOS_PITCHOVR_RNG := 0.0; 
end if; 

REL_VEL := REL_VEL_TAIL; 
end loop; 

if REL_VEL_TAIL >0.0 then 

TGO PITCHOVR RNG TAIL := TGO PITCHOVR RNG; 

los”pitchovr”rng”tail := los“pitchovr”rng; 

else 

TGO_PITCHOVR_RNG_TAIL := 0.0; 

LOS_PITCHOVR_RNG_TAIL ;* 0.0; 
end if; 

PITCHOVR_RNG_NOSE :* MAX3(GIM PITCHOVR RNG, TGO PITCHOVR RNG_N0SE, 

LOS PITCHOVR_RNG NOSE); 

PITCHOVR_RNG_TAIL :=”mAX3(GIM_PITCH0VR_RNG, TG0_PITCH0VR_RNG_TAIL, 

LOS_P I T CH0VR_RNG_T A I L ) ; 

-- Compute algorithm selection threshold range 

RNG_NOSE :* X ALT HOLD ♦ PITCHOVR RNG NOSE + OX TGT; 

RNG_TAIL := x'aLT^OLO + PITCHOVR“rNG”tAIL - DX”tGT; 

DELTA_RNG := (RNG NOSE - RNG_TAIL) / 2.0; 

RADIUS :* (RNG_NOS^E ♦ RNG_TAIL) / 2.0; 

THRESHOLD_RANGE := SORT(RADIUS**2 - (DELTA RNG*SIN_ASPECT_ANGLE)**2) - 
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DELTA_RNG*COS_ASPECT_ANGLE; 



-- Determine if 'long' or 'short' range flight & set parameters 

if RANGE HORIZ < THRESHOLD RANGE then 
LONG“ranGE := false; 

ALT SWITCH := 60000.0; 

ALT"raTE_SWITCH := 600.0; 

else 

LONG_RANGE := true; 

ALT SWITCH := 69000.0; 

ALT“rATE_SWITCH 0.0; 
end if; 

end INITIALIZE; 



procedure COMPUTE ( 

TIME_TO_GO : in REAL; 
ALTITUDE : in REAL; 
ALTITUDE RATE : in REAL; 
velocity” : in REAL; 
AXIAL_ACC : in REAL; 
PITCH BOO : in REAL; 
TGT.RAN6E : in REAL; 
T6 T“rANGE_RATE : in REAL 
SKR GIMBAL ANGLE 



-- Midcourse estimated time to go 
Ms I altitude above round earth 
-- Derivative of altitude 
Velocity magnitude 

- INS measured axis 1 accel. 

- Pitch relative to earth 

- Estimated range to tgt 
-- Derivative of T6T_RANGE 

in VECTOR; -- Seeker LOS angles 



OMEGA 1_SKR : in VECTOR; -- Seeker LOS angle rates 
GUIDANCE_PHASE_OUT : out GUIDANCE_PHASE_TYPE; 
ACC_CM0_B00 : out VECTOR) is -- Body acceleration ends 



procedure GUIDANCE_MODE is 

TOTAL LOS RATE : REAL; 

T0TAL“GIMBAL ANG : REAL; 

VEL_lTmIT : REAL; 
begin 

PREV_6UIDANCE_PHASE := GUIDANCE_PHASE; 

COS_TOT_GIMBAL ANG := COS(SKR_GIMBAL ANGLE(2)) * 

COS(SKR GIMBAL“aN6LE(3)); 

TOTAL gTmBAL_ANG := ACOS(COS_TOT_GIMBAL ANG); 

TOTAL“lOS_RATE := SQRT(0MEGA1_SKR(2)**2“+ 0MEGA1_SKR(3)**2); 

if ENVIRONMENT. Time >= GUIDANCE_INITIATE_TIME then 
if PREV GUIDANCE PHASE = TERMINAL or 
TIME_To“GO <= TERMINAL_TGO_THRESHOLD then 
GUIDANCE_PHASE := TERMINAL; 

elsif PREV_GUIDANCE_PHASE = TURN DOWN then 

GUIDANCE_PHASE := TERMINAL; Incomplete in 6DOF 

elsif PREV_GUIDANCE_PHASE = ALTI TUOE_HOLD then 
if TOTAL LOS RATE >= 0.5*DEG TO RAD or 
COS TOT GIMBAL ANG <= COS_TURNDOWN_GIMBAL_ANGLE then 
“gUIDANCE_PHASE TERMINAL; 
else 

GUIDANCE^PHASE := ALTITUDE_HOLD; 
end if; 

elsif PREV GUIDANCE_PHASE = VARIABLE ARC then 
if TOTAL_LOS RATE >= 0.5*DEG_TO_RAD then 
GUIDANCE“pHASE := TERMINAL; 
elsif ALTITUDE >= ALT SWITCH and 
ALTITUDE_RATE >= ALT_RATE SWITCH then 
6UIDANCE_PHASE := ALtTtUDE_HOLD; 

else 

GUIDANCE_PHASE := VARIABLE_ARC; 
end if; 
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elsif PREV_GUIDANCE_PHASE = LOAD BIAS then 

CLIMB^ANGLE := ASIN(ALTITU0E“RATE / VELOCITY); 

if CLIMB ANGLE >= TRANS_CLIMB_ANGLE then 
GUIDANCE_PHASE := VARIABLE_ARC; 

else 

GUIDANCE_PHASE := LOAD^BIAS; 
end if; 

elsif PREV_GUIDANCE PHASE = HOLD_PATH then 
if ALTITUDE <= 30000.0 then 

VEL_LIMIT := 2900.0 + 0.0225*ALTITUDE; 
elsif ALTITUDE <= 70000.0 then 

VEL_LIMIT := 3500.0 + 0.00725*(ALTITUDE-30000.0); 

else 

VEL^LIMIT := 3800.0; 
end if; 

if VELOCITY >= (VEL LIMIT-150.0) then 
GUIDANCE_PHASE 7 = LOAD_BIAS; 
elsif ENVIRONMENT. Time > HOLD_PATH_TIME then 
GUIDANCE^PHASE := LOAD_BIAS; 

else 

GUIDANCE^PHASE := HOLD^PATH; 
end if; 

elsif PREV_GUIDANCE_PHASE = NULL_COMMANDS then 
if HOLD_PATH_TIME <= 0.8 then 
GUIDANCE^PHASE := LOAD_BIAS; 

else 

GUIDANCE^PHASE := HOLD^PATH; 
end if; 
end if; 
end if; 

end GUIDANCE_M00E; 



function ALTITUDE^HOLD^CMD 
return REAL is 

ALTITUDE_RATE CMO : REAL; 

ALTITUDE_ACC_CMD : REAL; 
begin 

if not ALT_RATE_LIMIT_SET then 

ALTITUDE RATE LIMIT := abs(ALTITUDE_RATE); 

ALT_RATeIlIMIT_SET := true; 
end if; 

ALTITUDE RATE CMD := -ALTITUDE GAIN * (ALTITUDE - DESIRED ALTITUDE); 
ALTITUDeIrATe“cmD := LIMIT(ALTITUDE_RATE_CM0, ALTITUDE_RATE_LIMIT); 

ALTITUDE_ACC_CMD := ALTITUDE_RATE GAIN * (ALTITUDE_RATE - 
ALTITUDE RATE CMO); 

ALTITUDE_ACC“CMO 7= LIMIT(ALT ITUOE_ACC_CMD, ALTITUDE_ACC_LIMIT); 

return ALTITUOE_ACC CMD; 
end ALTITUOE_HOLD_CMO; “ 



procedure GUIDANCE COMMANDS is 
TOTAL_ACC_CMO 7 REAL; 
GUIDANCE^GAIN : REAL; 
begin 

if GUIDANCE_PHASE = TERMINAL then 
GUIDANCE GAIN := 3.0; 
PIT_ACC_COMP_ENABLED := true; 

else 

GUIDANCE_GAIN 4.0; 
end if; 
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-- Yaw acceleration conmand 



case GUIDANCE PHASE is 
when NULL'coMMANDS => 

YAW_ACC_CMO := 0.0; 
when others => 

AXIAL_ACC_COMP := AXIAL.ACC - G*SIN(PITCH_BOO); 

-- axial_acc_coiip used for pitch command also 

YAW_ACC_CMO := -GUIDANCE_GAIN * TGT_RANGE_RATE * 
(OMEGA1_SKR(2) * TAN(SKR_GIMBAL_ANGLE(2)) * 

TAN(SKR GIMBAL_ANGLE(3)) + 0MEGA1 SKR(3) / 

COS ( SKr'g I MBAL^ANGLE ( 3 ) ) ) ; 

YAW__ACC_CMO := YAW_ACC_CMD + AXIAL_ACC_COMP * 
TAN(SKr”gIMBAL_ANGLE(3)) / C0S(SKR”gIMBAL_ANGLE( 2)); 
end case; 

-- Prop. Nav. Pitch acceleration command 

PIT_ACC_CMD := GUIDANCE^GAIN * TGT_RANGE_RATE * 

0MEGA1_SKR(2) / COS(SKr”gIMBAL_ANGLE(2))7 

if PIT_ACC_COMP_ENABLED then 

PIT_ACC CMD := PIT_ACC_CMD - AXIAL_ACC_COHP * 

TAN ( SKR^G I MBAL_ANGLE ( 2 ) ) ; 
end if; 

-- Pitch acceleration command 

case GUIDANCE PHASE is 
when NULL^COMMANDS => 

PIT_ACC_CMD := 0.0; 

when HOLD_PATH => 

PIT_ACC_CMD := 0.0; 

when LOAD_BIAS => 

if LONG_RANGE then 

PIT_ACC_CMD := LOAD_BIAS_FACTOR; 

else 

PIT^ACC^CMD := PIT_ACC_CMD + LOAD_BIAS_FACTOR; 
end if; 

when VARIABLE_ARC => 
if LONG_RANGE then 

CLIMB ANGLE ;= ASIN(ALTITUDE_RATE / VELOCITY); 
PIT_ACC_CMD := (1.0 - COS(CLIMB_ANGLE)) * 

(VELOCITY ** 2) / ((DESIRED^ALTITUDE + ALTITUDE^DELTA) 
- ALTITUDE); 

else 

PIT ACC_CMD := PIT_ACC_CMD + GUIDANCE_GAIN * 
TGT^RANGE^RATE * LOS_BIAS / COS(PITCH_BOO); 
end if; 

when ALTITUDE HOLD => 

PIT^ACC^CMD := ALTITUDE_HOLD_CMD / COS(PITCH_BOO); 

when TURN_DOWN => 

null; -- Use Prop. Nav. command 

when TERMINAL => 

null; -- Use Prop. Nav. command 
end case; 

Compensate for gravity 

PIT_ACC_CMD := PIT_ACC_CMD - G * COS(PITCH_BOO); 
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Limit acceleration commands 



TOTAL_ACC_CMO := SQRT(YAW_ACC_CM0**2 + PIT_ACC_CM0**2); 

if TOTAL_ACC CMO > ACCEL^LIMIT then 

PIT_ACC CMO := ACCEL_LIMIT*(PIT_ACC_CMO / TOTAL_ACC_CMD); 
YAW”aCC“cMO := ACCEL“lIMIT*(YAW_ACC_CMO / TOTAL_ACC_CMD); 
end if; 

end GUIDANCE_COMMANDS; 
begin 

GUIDANCE MODE; 

GUIDANCE“cOMMANDS; 

GUIDANCE_PHASE_OUT := GUIDANCE^PHASE; 

ACC CMO BOO (2)":= YAW ACC CMO;" 

ACC"cM0"B00(3) := PIT"aCC"cMO; 
end compute! 
end GUIDANCE; 



- Kinematics package 

* This package contains the procedures which will initialize 

- and then perform the necessary calculations to determine the kinematic 

- variables that are required to perform the simulation. 



with MATH; use MATH; 

with REAL_MATRIX; use REAL MATRIX; 

with MOOEL_TYPES; use MODEL_TYPES; 

package KINEMATICS is 

procedure SETUP(NTGTSJN,NSOJS_IN: in INTEGER); 

procedure COMPUTE (MSL_POS, MSL_VEL, TGT_VEL: in VECTOR; TGT_POS: 

in SUPER VECTOR; RANGE VEC: in out SUPER VECTOR; 

OMEGA: out VECTOR; TGT_RANGE, ROOT, MISS_DISTANCE_NED: 

in out VECTOR; TIME_TO_GO, MISS_DISTANCE: in out REAL); 

procedure EOM(MSL_POS, MSL VEL VEC, ANGLE 0 ATTACK: in VECTOR; COEF DRAG, 

MSL MASS, THRUST: in REALJ MSL_X_ACc!bOO: out REAL; 

MSL^VEL, MSL_HEADING_AZ, PITCH, Q: in out REAL); 

procedure MACH_NO( ALTITUDE: in REAL; MISSILE_VEL: in VECTOR; 

MACH: out REAL); 

procedure DIR_COS(PSI, THETA: in REAL; EIB: out MATRIX); 

end KINEMATICS; 



-- Kinematics package 

-- This package contains the procedures which will initialize 

-- and then perform the necessary calculations to determine the kinematic 

-- variables that are required to perform the simulation. 



with ENVIRONMENT; 

with MATH; use MATH; 

with REAL^MATRIX; use REAL^MATRIX; 

package body KINEMATICS is 

** List of variables that are global to the KINEMATICS package. 

SREF : constant REAL:= 0.492; -- Missile reference area, ft**2 
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NTGTS 

NSOJS 



INTEGER; 

INTEGER; 



procedure SETUP(NTGTSJN, NSOJSJN; fn INTEGER) is 
begin 

NTGTS:=NTGTS_IN; 

NSOJS :=NSOJSJN; 
end SETUP; 



procedure COMPUTE ( MS L_POS, MSL^VEL, TGT^VEL: in VECTOR; 

TGt 1>OS: in"sUPER_VECTOR; RANGE VEC: 

in out SUPER^VECTOR; OMEGA: out^VECTOR; 

TGT_RANGE, ROOT, MISS_DISTANCE NED: in out VECTOR; 

TIME_TO_GO, MISSED I STANCE: in'out REAL) is 

RHO: SUPER^VECTORd . .4); -- Missile to target vectors unit vector 

MSL_TGT_VEL: -- Missile to target one velocity vector 
VECTOR(1..3); 

begin 

-- Calculate MSL TGT_VEL 
MSL_TGT_VEL:=TGT“vEL-MSL_VEL; 

for I in 1, -NTGTS loop 

-- Calculate the missile to target range vector 
RANGE_VEC( I ):=TGT_POS( I )-MSL_POS; 

-- Calculate the missile to target range 
TGT^RANGE ( I ) : =MAGN I TUDE (RANGE_VEC( I ) ) ; 

-- Calculate the unit vector of the range vector 
RHO( I ) : =RANGE_VEC( I )/TGT_.RANGE( I ) ; 

-- Calculate RDOT(I ) 

RDOTd ) := DOT_PROOUCT(RHO( I ),MSL_TGT_VEL); 
end loop; 

for I in 1.. NSOJS loop 

RANGE_VEC ( I +2 ) : =TGT_POS ( I +2 ) - MSL_POS ; 

TGT^RANGE ( I +2 ) : =MAGN I TUDE ( RANGE^VEC ( I +2 ) ) ; 
end loop; 

-- Calculate the Line of sight (LOS) vector OMEGA 
OMEGA : =CROSS_PROOUCT (RHO( 1 ) ,MSL_TGT_VEL )/TGT_RANGE ( 1 ) ; 

-- Calculate the estimate of the time to go 
if RDOT(I) =0.0 then 
RDOT(1):=0.001; 
end if; 

M I SS_D I STANCE_NED : =RANGE_VEC( 1 ) -MSL_TGT_VEL* 

DOT PR00UCT(RANGE VEC(1),MSL TGT VEL) 

/MAGNITUDE(MSL TGT VEL)/MAGnTtUDE(MSL_TGT_VEL); 

M I SS_D I STANCE : =MAGN I TUDE (M I SS_D I STANCE* NED ) ; 

if TIME TO GO <= 4.0 then 

TIME_TO_GO:=(-SQRT(TGT RANGE(1)nGT RANGE(1 )-MISS DISTANCE* 

M I SS^D I STANCE r)/RDOT( 1 ) ; 

else 

T I ME_TO_GO: =- TGT_RANGE( 1 )/RDOT( 1 ) ; 
end if; 

if TIME_TO_GO >= 1000.0 or (ENVIRONMENT. TIME < 2.0 and 
TIME TO GO < 0.0) then 
TIME TO G0:=1000.0; 
elsif TIME^TO^GO < 0.0 then 
TIME_TO_GO:=0.0; 
end if; 
end COMPUTE; 
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procedure EOM(MSL POS, MSL_VEL_VEC, ANGLE_0_ATTACK: in VECTOR; COEF_DRAG, 
MSL MASS, THRUST: in REAL;'"mSL_X_ACC_BOO: out REAL; 

MSL“vEL, MSL_HEADING_AZ, PITChT Q: Tn out REAL) is 

-- This procedure calculates the missile axial acceleration 
-- vector from the inputs. This vector is returned to the 
-- MISSILE. COMPUTE procedure, where it is made available to 
-- the applications package for integration. 

DRAG : REAL; 

begin 

-- Calculate the missile heading angles 

PITCH:=ANGLE_0_ATTACK(2)+ATAN(-MSL_VEL_VEC(3)/SQRT(MSL_VEL_VEC(1)**2.0 

+MSL_VEL_VEC(2)**2.0)); 

MSL_HEADING_AZ:=ATAN(MSL_VEL_VEC(2)/MSL_VEL_VEC(D); 

-- Determine the missile velocity 
MSL^VE L : =MAGN I TUDE (MSL^VEL^VEC ) ; 

Calculate the dynamic pressure 
Q:=0.5*ENVIRONMENT.AIR_DENSITY(-MSL_POS(3))*MSL_VEL*MSL_VEL; 

-- Calculate the drag on the missile 
DRAG : =Q*COE F_DRAG*SRE F; 

-- Calculate^the missile x acceleration 
MSL X ACC B00:= <THRUST-DRAG)*G/MSL MASS; 
end EOmJ ” ” 



procedure MACH_NO( ALTITUDE: in REAL; MISSILE_VEL: in VECTOR; 

MACH: out REAL) is 

begin 

MACH:=MAGNITUDE<MISSILE_VEL)/ENVIRONMENT.SPEED_OF_SOUND(ALTITUDE); 
end MACH^NO; 



procedure DIR COS(PSI , THETA: in REAL; EIB: out MATRIX) is 
CPSI, -- “Cos(PSI) 

SPSI, -- Sin(PSI) 

CTHE, -- Cos(THETA) 

STHE: -- Sin(THETA) 

REAL; 



begin 

CPSI:= COS(PSI); 
SPSI:= SIN(PSI); 
CTHE:= COS(THETA); 
STHE:= SIN(THETA); 
EIB(1,1):= CTHE*CPSI; 
EIB(1,2):= CTHE*SPSI; 
EIB(1,3):= -STHE; 
EIB(2,1):= -SPSI; 
EIB(2,2):= CPSI; 
EIB(2,3):= 0.0; 
EIB(3,1):= STHE*CPSI; 
EIB(3,2):= STHE*SPSI; 
EIB(3,3):= CTHE; 
end DIR_COS; 

end KINEMATICS; 



-- Targets package 

-- This package contains the procedure calls which will initialize, 
-- setup, computes and get and put the missile state vector as well 
-- as calculating the necessary parameters to calculate the state 
-- vector. 



with MATH; use MATH; 

with REAL_MATRIX; use REAL MATRIX; 

with MODEL TYPES; use MODEL TYPES; 
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package TARGETS is 

procedure SETUP(ASPECT_IN, 

TGT2_ANGLE_IN, 

TGT_KACH IN, 

NO_OF_GS”lN, 

WEAVE^PERIOO IN, 

TURN ON VALUE IN, 

turn“angle_in7 

BUILDUP_TIME IN: in REAL; 

TGT RANGE_In7 

TGT^ALT IN, 

SOJ_ANGLE_I N : i n VECTOR; 

MANEUVER IN: in MANEUVER_TYPE; 

tgt_two_Tn, 

SOJ ONE IN, 

SOjItWO^IN: in YES^NO TYPE; 

TURN_ON_PARAMETER_I N : in MANEUVER_START_TYPE ) ; 

procedure PUT_STATES( STATES: in VECTOR); 

function GET^DERIVATIVES return VECTOR; 

function GET_STATES return VECTOR; 

function LOG_DATA return TARGET_LOG_DATA_TYPE; 

procedure INITIALIZE; 

procedure TGT_DATA(TGT_VEL_OUT: out VECTOR; 

TGT_POS_OUT: out SUPER_VECTOR); 

function TGT^POS return SUPER^VECTOR; 

procedure COMPUTE; 

function TGT_ASPECT(RANGE_VEC: in VECTOR) return REAL; 

end TARGETS; 



-- Targets package 

-- This package contains the procedure calls which will initialize, 
-- setup, computes and get and put the missile state vector as well 
-- as calculating the necessary parameters to calculate the state 
-- vector. 



with MODEL TYPES; use MODEL TYPES; 
with MATH;”use MATH; 
with ENVIRONMENT; 

with REAL_MATRIX; use REAL MATRIX; 
with LAUNCHER; 
with MISSILE; 

WITH TEXT_IO;WITH REALJO; 
package body TARGETS is 



LOGGED DATA 


TARGET LOG DATA 


ASPECT 


VECTOR(1..2); 


TGT2 ANGLE 


: REAL; 


TGT MACH 


REAL; 


tgt'head dot 


REAL; 


tgt'head“angle 


REAL; 


TGT VEL NED 


VECTOR (1..3); 


tgt’pos"ned 


SUPER VECTOR (1 


TGT VEL 


REAL;” 



-- Target Aspects 

-- Relative angle of tgt 2 to tgt1 
-- Target Machs 

-- Target one heading angle rate 
Target one heading angle 
-- Target Velocity Vector 
.4); -- Target Position Vectors 

-- Magnitude of Target Velocity 
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NO OF GS : 

UEAVE~PERIOO : 

TURN ON VALUE 
TURN"aNGLE : 

BUILDUP^TIME : 

TGT^RANGE : 

soj"angle 

MANEUVER : 

TURN ON PARAMETER 
NSOJS 

NTGTS : 

DERIVATIVES : 

STATE : 

G HORZ : 

OMEGA 

FSTART MANEUVER : 
START_TIME : 
FINAL HEAD ANGLE 



REAL; •• Hiirber of g's pulled in maneuver 

REAL; •- Period of target weave 

REAL; -- Time maneuver begins 

REAL; -- Angle turned through (turn and run) 

REAL; -- Exponential buildup time 
VECTORd . .4); LOS Range to the targets 

VECTORd . .2); -- Angle to SOJS relative to LAC az 

MANEUVER TYPE; -- Type of maneuver 

maneuverIstart_type; 

: INTEGER; -- NuTt«r of stand off jammers 

INTEGER; -- Nuifcer of Targets 

VECTORd.. 6); -- 

VECTORd.. 6); -* 

REAL; -- Horizontal g's pulled in weave 

REAL; Freqency of the weave 

boolean; -- Maneuver start flag 

REAL; -- Maneuver start time 

REAL; -- Final heading angle after turn 



procedure SETUP(ASPECT_IN, 

TGT2_ANGLE_IN, 

TGT_MACH_IN, 

NO OF GSJN, 

weave"perioo_in, 

TURN ON^VALUE IN, 

turn~angle_in7 

BUILDUP_TIME_IN: in REAL; 

TGT_RANGE_IN, 

TGT ALT IN, 

SOJ^ANGLE^IN: in VECTOR; 

MANEUVERJN: in MANEUVER_TYPE; 

TGT TWO IN, 

soj“one”in, 

SOJ^TWO^’lN: in YES NO_TYPE; 

TURN-ON "paRAMETER^InT in MANEUVER_START_TYPE) is 

TEMP: REAL; 
begin 

ASPECTd) := DEG_TO_RAD*REAL( integer (ASPECT_IN*RAD_TO_DEG) mod 360); 
-- Initial Target 1 Aspect (rad) 

TGT2_ANGLE:=TGT2_ANGLE IN; - Tgt 2 angle relative to tgt 1 

TGT^MACH := TGT^MACHJ’N; -- Initial Target Mach 
NO OF_GS := NO OF GS IN; 

WEAVE_PER I 00 : =WEAVE”pER I00_IN; 

TURN_0N_VALUE:=TURN" on value IN; 

TURN_ANGLE:= TURN^ANgCe IN;" 

BUILDUP_TIME:=BUILDUP_TIME IN; 

TGT^RANGE := TGT RANGE"iN; — LOS Range (feet) 

SOJ" ANGLE := SOJ ANgIe IN," 

MANEUVER := MANEUVERIn; 
if TGT_TWO IN = NO then 
NTGTS : =1; 

else 

NTGTS:=2; 
end if; 

if SOJ^ONE^IN = NO and SOJ TWO_IN = NO then 
NSOJS :=0; 

elsif SOJ ONE IN = YES and SOJ TWOJN = NO then 
NS0Js7=1;" 

elsif SOJ_ONE_IN = NO and SOJ TWO IN = YES then 
NSOJS:=1; 

TGT_RANGE ( 3 ) : =TGT_RANGE ( 4 ) ; 

SOJ ANGLE(1):=SOJ_ANGLE(2); 
elsif SOJ ONE IN = YES and SOJ TWO_IN = YES then 
NSOJsT= 2;" 
end if; 

TURN_ON_PARAMETER : =TURN_ON_PARAMETER_IN; 
for I in 1..4 loop 

TGT^POS^NED ( I ) ( 3 ) : = - TGT^AL T_I N ( I ) ; 
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end loop; 
end SETUP; 



procedure PUT_STATES(STATES: in VECTOR) is 
begin 

T GT_POS_NED ( 1 ) : =ST AT ES ( 1 . . 3 ) ; 
end PUT“stateS; 



function GET_0ER1 VAT IVES return VECTOR is 
begin 

DERIVATIVES(1..3):=TGT_VEL NED; 
return DERIVATIVES; 
end GET DERIVATIVES; 



function GET_STATES return VECTOR is 
begin 

ST ATE ( 1 . . 3 ) : =T GT_POS_NED ( 1 ) ; 
return STATE; 
end GET_STATES; 



function LOG DATA return TARGET LOG DATA TYPE is 



begin 

LOGGED_DATA.REAL_VALUE( 1 ) 
LOGGED DATA. REAL VALUE(2) 
LOGGED“d ATA . RE AL“vALUE ( 3 ) 

logged“data.real~value<4) 
LOGGED“daT A . RE Al“vALUE ( 5 ) 
logged“data.real“value(6) 

LOGGED_DAT A . RE AL~VALUE ( 7 ) 
LOGGED DATA. REAL VALUE(8) 

loggedIdata.real“value( 9) 
return~LOGGED_DATA; 
end LOG_DATA; 



TGT POS_NED(1)(1); 
TGT“pOS_NED(1)(2); 

-TGT POS NED(1)(3); 
TGt“pOS~NED(2)(1); 

TGT POs“nED(2)(2); 
-TGT“pOs“nED(2)(3); 
TGT_VEL; 

TGT MACH; 

TGT“hEAD_ANGLE*RAD T0_DEG; 



procedure INITIALIZE is 
TGT2_TEMP_ANGLE; REAL; 

LAC_POS_NED : VECTORd . .3); 

begin 

START_TIME:=0.0; 

FSTART_MANEUVER:=false; 

LAC POS_NED:=LAUNCHER.LAC POS; 

TGT“vEL:=TGT HACH*ENVIRONMENT.SPEED_OF S0UND(-TGT_P0S_NED(1)(3)); 
TGT“vEL_NED(T):=TGT VEL*C0S(ASPECT(1))7 
TGT“vE L_NED ( 2 ) : =TGT~VE L*S I N ( ASPECT ( 1 ) ) ; 

TGT~VEL NED(3);=0.o7 

TGT“P0S“nED ( 1 ) ( 1 ) : =SORT( TGT RANGE ( 1 )*TGT_RANGE ( 1 ) - ( - LAC_POS_NED( 3 )+ 
~TGf POS NED(1)(3))*(-LAC POS NED(3)+TGT POS_NED(1)(3))); 
TGT_POS JnED ( 1 ) ( 2 ) ; =0 . 0; 

TGT_HEAD DOT:=0.0; 

TGT_HEAd7anGLE:=ASPECT(1); 

TGT2_TEMP ANGLE:=TGT2 ANGLE+TGT_HEAD_ANGLE-PI; 
if NTGTS = 2 then 

TGT POS NED(2)(1):=TGT POS NED(1)(1)+SIN(TGT2 TEMP ANGLE)* 
TGf_RANGE(2); 

TGT_POS NED(2)(2);=TGT_POS NED(1 )(2)-COS(TGT2_TEMP_ANGLE)* 

tgt_raiTge(2); 

if TGT POS NED(2)(2) /= 0.0 then 

ASPECtT2);=DEG to RAD*REAL(INTEGER(RAD_T0_DEG*(ASPECT(D- 
AT AN ( TGT_POS_NED ( 2 ) ( 2 )/TGT_POS_NED( 2 ) ( 1 ) ) ) ) 
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mod 360) 



else 

ASPECT(2):=ASPECT(1); 

end if; 

else 

TGT_POS_NED(2H1):=0.0; 

TGt'pOS NED(2)(2):=0.0; 

ASPECT(2);=0.0; 

end if; 

if NSOJS = 1 then 

TGT_POS NED(3)(1):=COS(SOJ ANGLE(1 ))*SORT(TGT RANGE(3)* 
TGT RANGE(3)-{-LAC POS NED(3)+ 
TGT~POS_NED(3)(3))*(-LAC POS_NED(3)+ 
TGT_POS NED(3)(3))); 

TGT POS NED(3)(2):=SIN(SOJ ANGLE(1))*SQRT(TGT RANGE(3)* 
TGT_RANGE(3)-(-LAC_POS_NED(3)+ 

TGT POS NED(3)(3))*(-LAC POS NED(3)+ 
TGt”pOs”nED(3H3))); 

if NSOJS = 1 then 

TGT POS NED(4H1):=0.0; 

TGT_POsIneD(4)(2);=0.0; 

end if; 

elsif NSOJS = 2 then 

TGT_POS_NED(3)(1):=COS(SOJ ANGLE(1 ))*SQRT(TGT_RANGE(3)* 
TGT_RANGE(3)-(-LAC_POS_NED(3)+ 

TGT POS NED(3H3))*(-LAC POS NED(3)+ 
TGt”pOs”nED(3)(3))); 

TGT_POS NED(3)(2):=SIN(SOJ_ANGLE(1))*SQRT(TGT_RANGE(3)* 
TGT_RANGE (3) - ( - LAC_POS_NEO (3)+ 

TGT POS NED(3)(3))*(-LAC POS NED(3)+ 
TGT~POS~NED(3)(3))); 

TGT POS_NED(4)(1>:=COS(SOjJanGLE(2))*SQRT(TGT RANGE(4)* 
TGT_RANGE(4)-(-LAC_POS_NED(3)+ 
TGT_POS_NED(4)(3))*(-LAC_POS_NED(3)+ 
TGT_P0S_NED{4)(3))); 

TGT_POS_NED(4)(2):=SIN(SOJ_ANGLE(2))*SORT(TGT RANGE(4)* 
TGT RANGE(4)-(-LAC_POS_NEO(3)+ 
TGt'pOS NED(4)(3))*(-LAC P0S_NED(3)+ 
TGT~P0S~NED(4)(3))); 

else 

TGT_POS_NED ( 3 ) ( 1 > : =0 . 0 ; 

TGT_POS_NED(3)(2);=0.0; 

TGT_POS_NED(4)(1):=0.0; 

TGT_POS_NED(4)(2):=0.0; 

end if; 

if MANEUVER = TURN then 

FINAL_HEAO ANGLE;=0EG TO RA0*REAL( integer(( ASPECT (1)+ 
TURN_ANGLE)*RAD”to_DEG) mod 360); 

elsif MANEUVER = WEAVE then 

OMEGA ; =2 . 0*P I /UE AVE_PER 1 00 ; 

end if; 

end INITIALIZE; 



procedure TGT_DATA(TGT_VEL_OUT: out VECTOR; 

TGT POS OUT : out SUPER VECTOR) is 



begin 

TGT VEL 0UT:=TGT VEL NED; 
TGT~POS“OUT : =TGt“pOs2nEO ; 
end TGT_DATA; 



function TGT_POS return SUPER_VECTOR is 
begin 

return TGT_POS_NEO; 
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end TGT_POS; 



procedure COMPUTE is 

BUIL0UP_FACT0R: REAL; 

MANEUVER START VALUE: REAL; 

TEMP_GS:“ REAlJ 
TGT2_TEMP_ANGLE: REAL; 

begin 

if not FSTART_MANEUVER then 

MISSILE. MANEUVER_VALUE( TURN_ON_PARAMETER , MANEUVER_START_VALUE ) ; 
end if; 

if TURN ON_PARAMETER /= FLIGHT TIME and MANEUVER_START_VALUE <= 

TURN ON VALUE then 
if nol FSTART MANEUVER then 

START_T I ME : =EN V I RONME NT . T i tne; 

FSTART_MANEUVER:=true; 
end if; 

elsif TURN_ON PARAMETER = FLIGHT TIME and MANEUVER_START_VALUE >= 
TURN_ON_VALUE then 
if not FSTART_MAHEUVER then 

START_T IME : =ENVI ROHMENT . Time; 

FSTART_MANEUVER : =t rue; 
end if; 
end if; 

if FSTART_MANEUVER and ENVIRONMENT. Time<=(START_TIME^ 

BUILDUP TIME) then 
if BUILDUP TIME = 0.0 then 

TGT HEAD OOT;=SIGN(TURN ANGLE)*G*SQRT(NO_OF_GS*NO_OF_GS- 
”1.0)7tGT VEL; 

G_H0RZ:=TAN(AC0S(1.0/N0_0F_GS)); 

else 

BU I LDUP_FACTOR : =1 . 0-EXP( (ENVI RONMENT . T ime- START_T I ME )* 
(-4.60517)/BU1LDUP TIME); 
if MANEUVER = TURN then 

TEMP GS : =NO_OF_GS*BUI LOUP_FACTOR; 
if TEMP GS < 1.0 then 
TEMP_GS:=1.0; 
end if; 

TGT_HEAD DOT:=SIGN(TURN_ANGLE)*G*SORT(TEMP_GS*TEMP GS- 
1.0)7tGT_VEL; 

elsif MANEUVER = WEAVE then 

G_HORZ : =BU I LDUP_FACTOR*TAN( ACOS( 1 . 0/NO_OF_GS ) ) ; 
end if; 
end if; 
end if; 

if MANEUVER = TURN and FSTART_MANEUVER then 
if (ASPECT(1)^TURN_ANGLE)<0.000 then 

if TGT_HEAD_ANGLE>ASPECT(1) and TGT_HEAD_ANGLE <= 

FINAL HEAD ANGLE then 

TGT_HEAD_ANGLE : =FI NAL_HEAD_ANGLE; 

else 

TGT HEAD ANGLE;*ASPECT(1)+(ENVIRONMENT.Time-START_TIME) 
•TGT_HEAD_DOT; 
end if; 

elsif (ASPECT(1)+TURN ANGLE) >*2.0 * PI then 

if TGT_HEAD_ANGLE<ASPECT(1) and TGT_HEA0_ANGLE >= 

FINAL HEAD ANGLE then 

TGT_HEAD_ANGLE:=FINAL_HEAO_ANGLE; 

else 

TGT_HEAD ANGLE :=ASPECT( 1 )>(ENVI RONMENT . T ime-START_T IME ) 
*TGT_HEAD_DOT; 
end if; 

elsif SIGNCTURN ANGLE)<0.0 then 

if FINAL HEAD ANGLE * 0.0 and TGT_HEAD_ANGLE >=6.20 then 
TGT_HEAD ANGLE :=F INAL HEAD_ANgIe; 
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elsif TGT_HEA0_ANGLE<=F1NAL_HEAD_ANGLE then 
TGT_HEAD_ANGLE :=F I NAL_HEAO_ANGLE; 
else 

TGT_HEAD ANGLE :=ASPECT ( 1 )+( ENVI RONMENT . T i me-START_T I ME )* 
TGT_HEAD“dOT; 
end if; 

else 

if TGT HEAD ANGLE>-FINAL HEAD_ANGLE then 
TGT~ head" ANGLE :=F I NAL~HEAO_ANGLE; 
else 

TGT HEAD ANGLE:=ASPECT(1)+(ENVIR0NMENT.Time-START_TIME)* 
TGT“hEAd2dOT; 
end if; 
end if; 

elsif MANEUVER - WEAVE and FSTART_MANEUVER then 
TGT_HEAD_ANGLE;=ASPECT(1)-G*G_H0RZ*C0S(0MEGA* 

"(ENVIRONMENT. Time-START_TIME))/TGT_VEL/OMEGA; 

end if; 

if TGT_HEAD ANGLE < 0.0 or TGT_HEAD_ANGLE >= 2.0*PI then 
TGT HEAD_ANGLE:=DEG_TO_RAO*REAL(integer(TGT_HEAD_ANGLE 
*RAD_TO_DEG) niod 360); 

end if; 

TGT VEL_NED(1):=TGT VEL*COS(TGT HEAD_ANGLE); 

TGT"vE L_NED ( 2 ) : =TGt"vE L*S I N ( TGT"hE AD_ANGLE ) ; 

TGt"vE L : =MAGN I TUOE ( TGT_VE L_NE0 ) ; 

TGT“mACH : =TGT_VEL/ENVI RONMENT . SPEED_OF_S 0UND( -TGT_POS_NED( 1 )(3) ); 
if NTGTS = 2 then 

if MANEUVER = TURN then 

TGT2 TEMP ANGLE :=TGT HEAD ANGLE+TGT2 ANGLE -PI; 
TGT_P0S_NED(2)(1):=TGT_P0S_NED(1)(1)+SIN(TGT2 TEMP ANGLE)* 
TGT_RANGE(2); 

TGT_POS NED(2)(2):=TGT_POS_NED(1)(2)-COS(TGT2_TEMP_ANGLE)* 
TGT_RANGE(2); 

else 

TGT POS NED(2)(1):=TGT POS NED( 1 )( 1 )+SIN(TGT2 ANGLE)* 
TGf_RANGE(2); 

TGT_POS_NED(2)(2):=TGT POS_NED( 1 )(2)-COS(TGT2_ANGLE)* 
TGf.RANGE(2); 

end if; 
end if; 
end COMPUTE; 



function TGT_ASPECT(RANGE_VEC: in VECTOR) return REAL is 

ASPECT : REAL; 
begin 

if RANGE_VEC(2) /= 0.0 then 

ASPECT :=DEG_T0 RAD*REAL( INTEGER (RAO TO DE6*(TGT HEAD_ANGLE 
ATAN(RANGE_VEC(2)/RANGE_VEC'( 1 ))))mod" 360); 

else 

ASPECT : =TGT_HEAD_ANGLE ; 
end if; 

return ASPECT; 
end TGT_ASPECT; 

end TARGETS; 



-- Environment Package 

-- This package contains procedures to set atmospheric conditions 
-- according to altitude. It uses standard temperature and pressure 
-- for each altitude zone. 



with MATH; use MATH; 
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package ENVIRONMENT is 

procedure SET TIME( 

NEW^TIME T in REAL); 

function Time 
return REAL; 

function AIR_DENSITY(ALTITL)OE : in REAL) 
return REAL; 

function SPEED_OF_SOUND( ALTITUDE : in REAL) 
return REAL; 

end ENVIRONMENT; 



-- Environment Package 

-- This package contains procedures to set the time, return the time, 
-- compute position and gravity vectors due to the earth's curvature, 
-- and set atmospheric conditions according to altitude. 



with MATH; use MATH; 

with REAL_MATRIX; use REAL^MATRIX; 

package body ENVIRONMENT is 

SYSTEM_.TIME : REAL := 0.0; 



procedure SET_TIME( 

NEW_TIME : in REAL) is 
begin 

SYSTEM_TIME := NEW_TIME; 
end SET TIME; 



function TIME return REAL is 
begin 

return SYSTEM_TIME; 
end Time; 



function AIR_DENSITY( 

ALTITUDE : in REAL) return REAL is 

TO : constant := 518.69; 

RHOO ; constant := 2.3769E-3; 

Hi : constant := 36500.0; 

T1 : constant 389.99; 

RH01 : constant := 6.9443E-4; 

H2 : constant := 82000.0; 

T2 : constant ;= 389.99; 

RH02 : constant := 7. 8931 E- 5; 

H3 : constant := 156000.0; 

T3 : constant := 508.79; 

A1 : constant := (T1 - TO) / Hi; 

A3 : constant := (T3 - T2) / (H3 - H2); 

INV TO : constant 1.0 / TO; 

EXP”0 : constant := -(G / (A1 * R) +1.0); 
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EXP_COEFJ : constant := -G / (R * T1); 

INV_T2 : constant ;= 1.0 / T2; 

EXP_2 ; constant := -(G / (A3 *R) 1.0); 

RHO : REAL; 

TEMP : REAL; 

begin 

if ALTITUDE < HI then 

TEMP := TO + ALTITUDE * A1; 

RHO := RHOO * REAL(TEMP * INV_T0) ** REAL(EXP 0); 
elsif (ALTITUDE >= Hi) and (ALTITUDE < H2) then 

RHO := RH01 * EXP(EXP_(»eFJ * (ALTITUDE - Hi)); 
elsif ALTITUDE >= H2 then 

TEMP := T2 + (ALTITUDE - H2) * A3; 

RHO := RH02 • REAL(TEMP * INV_T2)**REAL(EXP_2); 
end if; 
return RHO; 
end AIR_DENSITY; 



function SPEED OF SOUND ( 



ALTITUDE 


: 


in REAL) 


return 


TO : 


constant 


: = 


518.69; 






HI : 


constant 


• s 


36500.0; 






T1 : 


constant 


: = 


389.99; 






H2 : 


constant 


; = 


82000.0; 






T2 : 


constant 


: = 


389.99; 






H3 : 


constant 


; = 


156000.0; 






T3 ; 


constant 


: = 


508.79; 






A1 : 


constant 




(T1 - TO) 


/ 


HI; 


A3 : 


constant 


: = 


(T3 - T2) 


/ 


(H3 


TEMP 


: REAL; 










SOUND_SPEED : 


REAL; 







H2); 



begin 

if ALTITUDE < Hi then 

TEMP ;» TO + ALTITUDE * A1; 

SOUND_SPEED ;= SQRT(GAMMA * R • TEMP); 
elsif (ALTITUDE >= HI) and (ALTITUDE < H2) then 
TEMP := T1; 

SOUND_SPEED ;= SQRT(GAMHA * R • TEMP); 
elsif ALTITUDE >= H2 then 

TEMP := T2 + (ALTITUDE - H2) * A3; 
SOUND_SPEED := SQRT(GAMMA * R * TEMP); 
end if; 

return SOUND SPEED; 
end SPEED OF SOUND; 



end ENVIRONMENT; 
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